Написать программу в Паскаль ABCСоставить алгоритм нахождения меньшего из 2-х...

Question

Написать программу в Паскаль ABC
Составить алгоритм нахождения меньшего из 2-х значений
Определить,является ли данное число чётным или нечётным

Comments

А на какую тему?

---

Паскаль.Программирование алгоритмов ветвления.

---

Сори. Не умею

Answer 1

Program m;
var a,b,c:integer;
begin
readln(a,b);
if athen c:=a
else c:=b;
if c mod 2 =0
then writeln ('наименьшее число = ',c , '; данное число чётное')
else writeln ('наименьшее число = ',c , '; данное число нечётное');
end.