Question

СРОЧНО!!!ПОЖАЛУЙСТА ПОМОГИТЕ!!!30 БАЛЛОВ!
Напишите программу, которая запрашивает число учеников в ряду и выводит.Можно ли их поставить в две шеренги так, чтобы в каждой было одинаковое число детей?

Answer 1

Ответ:

program Pupils;

var k:integer;

begin

writeln ('Введите количество учеников: ');

readln (k);

if k mod 2=0 then

begin

writeln ('Количество учеников .... одинаковое!!!');

end

else

writeln ('Количество учеников .... не одинаковое!!!');

end.