Задача 15 Урок 9

Задача 15 Урок 9

У вас есть код:

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

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

Задача: Перепешите это код в неполной форме (без использования else).

Решение:

var f:integer;
 begin
   write('vvedite chislo: ');
   readln(f);
   if not(f=0) then
     writeln('ne ravno 0!');
   readln();
 end.