Определить кратно ли заданное число 3 если нет вывести остаток
Ответы на вопрос
Ответил Аноним
7
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.
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.
ТошаКот:
Надо именно 2 "enb"
d*
Ой опять перепутал
Ну если ты напишешь по-другому то перепиши
Не я в этом не шарю
Var
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
else
writeln(a mod 3);
end.
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
else
writeln(a mod 3);
end.
Работает?
Ага
Спасибо
Новые вопросы
История,
1 год назад
Математика,
1 год назад
Окружающий мир,
2 года назад
Українська мова,
2 года назад