Ответы
Ответ дал:
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.
Ответ дал:
0
Спасибо:)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад