Vapivavme
7 год назад
ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))
Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.
ОТВЕТЫ
Евстафьевич
Jul 15, 2019
Program kontr;
var a:integer;
begin
writeln (Vvedite celoe chislo);
readln(a);
if (a mod 3 = 0) then writeln (Da)
else writeln (Net);
end.
var a:integer;
begin
writeln (Vvedite celoe chislo);
readln(a);
if (a mod 3 = 0) then writeln (Da)
else writeln (Net);
end.
178
