Напишите программы:1. Дано число кратное 72. Дано число. Найти кончается ли

Во второй раз спрашиваю, в чем заключается смысл первой задачи

Сама не знаю)

может проверить кратно ЛИ число 7?

Да

Можешь написать?

ща,напишу

Спасибо

Формулируйте вопрос верно

Превосходно

Спасибо огромное

1) var
a: longint;
begin
readln(a);
if (a mod 7 = 0) then
writeln('YES')
else
writeln('NO');
end.
2) var
a: longint;
begin
readln(a);
if (a mod 10 = 0) then
writeln('YES')
else
writeln('NO');
end.
3) var
a, b: longint;
begin
readln(a, b);
if (a gt; b) then
writeln('a gt; b');
if (a lt; b) then
writeln('a lt; b');
if (a = b) then 
writeln('a = b');
end.