Задача 15 Урок 9
Primary tabs
У вас есть код:
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.
- Log in to post comments
- 255 reads