Question

Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.) Задача: Дано целое

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

Answer 1

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.

Если нужно выполнять программу из-под программной оболочки, удали первую строку.