Osi
4 год назад
ребят Пожалуйста посчитайте написать программу с помощью Паскаль
ОТВЕТЫ
Fedor
Oct 24, 2020
Program z1;
var a:integer;
Begin
read(a);
if (a mod 3=0) and (a mod 10=8) then
writeln('Число делится нацело на 3 и оканчивается на 8')
else
writeln('Выводит не будем')
End.
var a:integer;
Begin
read(a);
if (a mod 3=0) and (a mod 10=8) then
writeln('Число делится нацело на 3 и оканчивается на 8')
else
writeln('Выводит не будем')
End.
801
Смежные вопросы:
