«Каждый из парней владеет одним из видов оружия, кроме того, говорит на одном из четырёх языков: английский, французский, немецкий и итальянский. Известно, что Рид виртуозно владеет битой. Тот, кто говорит по-французски, в совершенстве владеет кастетом. Рудольф весьма осведомлён в управлении пистолетом. Рид Ричардс никогда не бывал в Италии и не интересовался их диалектом. Рудольф всегда мечтал выучить английский, но не сложилось. Ларин не умеет пользоваться арбалетом, а тот, кто разбирается в огнестрельном оружии, не владеет итальянским языком. В преступлениях замешан тот, кто умеет обращаться с арбалетом и тот, кто является знатоком немецкого языка.» Кто чем владеет?
Dim A(20), Sum As Integer
Sum = 0
For i = 1 To 20
A(i) = Int(Rnd * 20)
If A(i) > 3 Then Sum = Sum + A(i)
TextBox1.Text = TextBox1.Text & A(i) & " "
TextBox2.Text = Sum Next i
If TextBox1.Text <> "" Then
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If
End Sub
Private Sub CommandButton2_Click()
If TextBox1.Text <> "" Then CommandButton1.Enabled = True
TextBox1.Text = ""
TextBox2.Text = ""
CommandButton2.Enabled = False
End Sub
Var
A:longint;
n,p:integer;
B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
Begin
B:=A mod 10;
if B = 0 then n:=n+1;
if B = 5 then p:=p+1;
A:=A div 10;
End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.
Вариант второй:
Var
A:string;
n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
if A[i] = '0' then n:=n+1
else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.