Тема: ABC Pascal. Простые и составные условия

Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция «ветвление» (if, then, else ипроч.) Задача: Дано целое число. Определить, оканчивается ли оно цифрой 7 и делится ли без остатка на 13. Буду очень благодарна!

в избранное

neilart

08 июля 2023

uses crt; var a: integer; beginwrite ('Введите число: '); readln (a); if (a mod 13)=0 then write ('Число делится без остатка на 13') else write ('Число не делится без остатка на 13'); writeln; if (a mod 10)=7 then write ('Число оканчивается на цифру 7') else write ('Число не оканчивается на цифру 7'); end. Если нужно выполнять программу из-под программной оболочки, удали первую строку.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?