ребят помогите написать программу с помощью Паскаль
Приложения:
Ответы на вопрос
Ответил dant02
0
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.
Новые вопросы