Ответы
Ответ дал:
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 года назад
3 года назад
3 года назад
8 лет назад