Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.)
Задача: Дано целое число. Определить, оканчивается ли оно цифрой 7 и делится ли без остатка на 13.
Буду очень благодарна!
More Questions From This User See All
Answers & Comments
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.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.