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

Primary tabs

Submitted by Ksgor on Tue, 01/03/2023 - 22:47

Forums:

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

Есть программа:

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

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

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

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

Консоль: 

Введите число: 7
Не равно 0!
  • Log in to post comments
  • 521 reads
vedro-compota's picture

vedro-compota

Wed, 01/04/2023 - 17:22

а как выполнить задачу без использования not?

_____________
матфак вгу и остальная классика =)

Ksgor

Wed, 01/04/2023 - 23:19 

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