Ddeviant
6 год назад
Вводится последовательность целых чисел, конецввода – число, в котором две последние цифрыравны. Найти количество введенных чисел,кратных 4PASCAL ABC
ОТВЕТЫ
Егор
Oct 24, 2020
Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if A mod 4 = 0 then k:=k+1;
Until A mod 10 = (A div 10) mod 10;
WriteLn('Искомое количество: ',k);
End.
Begin
k:=0;
Repeat
Read(A);
if A mod 4 = 0 then k:=k+1;
Until A mod 10 = (A div 10) mod 10;
WriteLn('Искомое количество: ',k);
End.
849
Смежные вопросы:
