Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Cоставить программу, получающую при вводе действительное число и выводящую цифру 1, если это число падает [-20;0], и цифру 2, если это число попадает в промежуток [1;+∞]. В остальных случаях программа выводит слово No. Программу следует составить в Pascal.

Ответ оставил Гость

Var
R:real;
Begin
WriteLn(Введи число);
ReadLn(R);
If (R>=-20)and(R<=0) then Write(1)
else if (R>=1)and(R<=real.PositiveInfinity) then Write(2)
else Write(No)
End.

Над стрелками после условия знаки поставь: над правой плюс, над левой минус.