Ответы
Ответ дал:
0
Program kratnoe3;
var x: integer;
Begin
Writeln('Введите целое число: ');
readln(x);
if (x mod 3) = 0 then
Writeln('Кратно 3-м!')
else
Writeln('Не кратно 3-м'); end.
var x: integer;
Begin
Writeln('Введите целое число: ');
readln(x);
if (x mod 3) = 0 then
Writeln('Кратно 3-м!')
else
Writeln('Не кратно 3-м'); end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад