Решаем задачи Абрамян на Паскале. If29

If29. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.

Решение:

program if29;
var
  X: Integer;
begin
 Write('Введите число ');
 Readln(X);
 if x =0 then Write('Нулевое ')
 else
  begin
    if x>0 then Write('Положительное ')
    else Write('Отрицательное ');
    if (x mod 2) = 0 then Write('чётное ')
    else Write('нечётное ');
  end;
 Writeln('число.');
end.

program if29;

var

X: Integer;

begin

Write('Введите число ');

Readln(X);

if x =0 then Write('Нулевое ')

else

begin

if x>0 then Write('Положительное ')

else Write('Отрицательное ');

if (x mod 2) = 0 then Write('чётное ')

else Write('нечётное ');

end;

Writeln('число.');

end.

Другие задачи из раздела If можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. If29

Комментарии:

Добавить комментарий Отменить ответ