Регистрация
Євпак
05.02.2020 00:12
Информатика
Есть ответ 👍

Написать на Паскале программу является ли число отрицательным и не четным

104
281
Посмотреть ответы 2

Ответы на вопрос:

Hunterxxxx
Hunterxxxx
4,7(74 оценок)

Program abc;

var

 a: integer;

begin

 readln(a);

 if (a<0) and (a mod 2 = -1) then writeln('Число отрицательное и не четное!')

 else writeln('Число не является отрицательным и не четным!');

end.

Объяснение:

Если что-то нужно объяснить, то спрашивай

Ріo78
Ріo78
4,8(62 оценок)

pascalabc.net

begin

  var n : = readinteger('число строк? ');

  for var i : = 1 to n do

  begin

    for var j : = 1 to i do

      print(i);

    writeln

  end

end.

Популярно: Информатика