выражение
Пример: ((x0) and (x0) or (s20) or (s30) then write (да) else write (нет);
readkey;
End.
2. Определите, является ли введеное число двузначным.
Program с1; Uses crt;
var a: integer;
Begin
ClrScr;
write ( Введите целое число а); readln(a);
if (a10) and (an then write (Лифт остановиться на ,n2 ,этаже);
if n2
Страницы: << < 1 | 2