Определить кратно ли заданное число 3 если нет вывести остаток

яждупомощи яждупомощи    1   20.09.2019 19:20    2

Ответы
Sulifat Sulifat  08.10.2020 05:29
Var
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
end
else
begin
writeln(a mod 3);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика