Question

Напишите программы:

1. Дано число кратное 7

2. Дано число. Определить заканчивается ли оно на 0.

3. Дано 2 числа найти минимальное.

Answer 1

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 > b) then
writeln('a > b');
if (a < b) then
writeln('a < b');
if (a = b) then 
writeln('a = b');
end.