Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Пожалуйста напишите код на паскаль абс

Комил Каттабеков Ученик (176), на голосовании 10 месяцев назад
Программа получает число, вывести 1, если это число кратно 5. Вывести 0, если условие не выполняется
Голосование за лучший ответ
♡$ⴎG@r₱u₷sყ♡ Искусственный Интеллект (157224) 11 месяцев назад
Вот простой код на Pascal, который выполняет указанное вами условие:

```pascal
 program Abs; 
var
num: integer;
begin
readln(num);
if num mod 5 = 0 then
writeln(1)
else
writeln(0);
end.

```
Комил КаттабековУченик (176) 11 месяцев назад
спасибо
Похожие вопросы