Урок №9 Задание 15

Primary tabs

Submitted by pboldov on Tue, 01/10/2023 - 14:46

У вас есть код который сообщает пользователю, что число не равно нулю, если это действительно так, или в обратной ситуации не делает вообще ничего

program Pr9_15;

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f<>0 then writeln('Не равно 0!');
  readln();
end.

Консоль:

Введите число : 1
Не равно 0!