Cоставить программу, получающую при вводе действительное число и выводящую цифру 1, если это число падает [-20;0], и цифру 2, если это число попадает в промежуток [1;+∞]. В остальных случаях программа выводит слово No. Программу следует составить в Pascal.
Ответы
Ответ дал:
0
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.
Над стрелками после условия знаки поставь: над правой плюс, над левой минус.
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.
Над стрелками после условия знаки поставь: над правой плюс, над левой минус.
Приложения:
![](https://st.uroker.com/files/d52/d522180fa732c7ee7215d8706fe96e16.png)
Ответ дал:
0
var
n:double;
begin
Write('n='); Read(n);
if (n>=-20) and (n<=0) then Writeln('1')
else
if n>=1 then Writeln('2') else Writeln('No')
end.
Блок-схема во вложении, знаком & обозначена операция "логическое и"
n:double;
begin
Write('n='); Read(n);
if (n>=-20) and (n<=0) then Writeln('1')
else
if n>=1 then Writeln('2') else Writeln('No')
end.
Блок-схема во вложении, знаком & обозначена операция "логическое и"
Приложения:
![](https://st.uroker.com/files/ca8/ca805ea53a1785196ddc4bc66957d466.jpg)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад