Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.)
Задача: Дано целое число. Определить, оканчивается ли оно цифрой 7 и делится ли без остатка на 13.
Буду очень благодарна!
uses crt;
var a:integer;
begin
write(Введите число: );
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.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
