Ответы
Ответ дал:
0
Program z1;
Var a: integer;
Begin
writeln('Введите число:');
readln(a);
if (a mod 3)=0 then
writeln('Число кратно 3.')
else
writeln('Число не кратно 3.');
end.
Var a: integer;
Begin
writeln('Введите число:');
readln(a);
if (a mod 3)=0 then
writeln('Число кратно 3.')
else
writeln('Число не кратно 3.');
end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад