Напишите программы: 1. Дано число кратное 7 2. Дано число. Определить заканчивается ли...

Question

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

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

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

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

Comments

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

---

Сама не знаю)

---

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

---

Да

---

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

---

ща,напишу

---

Спасибо

---

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

---

Хорошо

---

Спасибо большое

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.