Написать программу в Паскаль ABC

Составить алгоритм нахождения меньшего из 2-х значений

Определить, является ли данное число чётным или нечётным

Question

Информатика

Стелла

26 ноября, 15:41

Написать программу в Паскаль ABC

Составить алгоритм нахождения меньшего из 2-х значений

Определить, является ли данное число чётным или нечётным

+1

Ответы (1)

Знаете ответ на вопрос?

Эмилианка · Answer 1

Program m;

var a, b, c:integer;

begin

readln (a, b) ;

if a
then c:=a

else c:=b;

if c mod 2 = 0

then writeln ('наименьшее число = ', c, '; данное число чётное')

else writeln ('наименьшее число = ', c, '; данное число нечётное') ;

end.

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

Написать программу в Паскаль ABC

Составить алгоритм нахождения меньшего из 2-х значений

Определить, является ли данное число чётным или нечётным