Ответы
Ответ дал:
0
Var
A:integer;
k,n:integer;
Begin
Write('Введите 15 чисел: ');
k:=0;
For n:= 1 to 15 do
Begin
Read(A);
if Abs(A) mod 10 = 4 then k:=k+1
End;
WriteLn('Количество чисел, оканчивающихся на 4: ',k);
End.
A:integer;
k,n:integer;
Begin
Write('Введите 15 чисел: ');
k:=0;
For n:= 1 to 15 do
Begin
Read(A);
if Abs(A) mod 10 = 4 then k:=k+1
End;
WriteLn('Количество чисел, оканчивающихся на 4: ',k);
End.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад