сколько на интервале от 1 до 100 чисел кратных 4
ПРОГРАММА ПАСКАЛЬ ABC
Ответы на вопрос
Ответил hello93
0
Var
i, k: integer;
Begin
k:=0;
writeln('Числа кратные 4:');
for i:=1 to 100 do
if i mod 4 = 0 then
begin
k:=k+1;
write(i:4);
end;
writeln;
writeln('Всего чисел: ',k);
End.
i, k: integer;
Begin
k:=0;
writeln('Числа кратные 4:');
for i:=1 to 100 do
if i mod 4 = 0 then
begin
k:=k+1;
write(i:4);
end;
writeln;
writeln('Всего чисел: ',k);
End.
Ответил Марчо2003
0
Спасибо:)
Новые вопросы