1) Дано число А. Определить, положительное, отрицательное оно или равно 0.2) Определить, принадлежит ли меньшее из чисел M и N промежутку [-20; 10).
1) Дано число А. Определить, положительное, отрицательное оно или равно 0.
2) Определить, принадлежит ли меньшее из чисел M и N промежутку [-20; 10).
Гость
Ответ(ы) на вопрос:
Гость1)
var
A:integer;
Begin
Readln(a);
If a<>0 then
If a<0 then writeln('a<0') else writeln('a>0')
Else writeln('a=0');
End.
2)
Var
A,M,n:integer;
Begin
readln(m);
readln(n);
If m=n then writeln ('error') else
If m>n then a:=n else a:=m;
If (-20<=a) and (a<10) then writeln('Yes') else
Writeln('No');
End.
Гостьvar m,n,x,y: integer;
begin
write ('Введите число M: '); read(m);
write ('Введите число N: '); read(n);
if (m=-20) and (m<10) then writeln ('Число M входит в промежуток [-20;10)') else writeln ('Число M не входит в промежуток [-20;10)');
end
else begin
if (n>=-20) and (n<10) then writeln ('Число N входит в промежуток [-20;10)') else writeln ('Число N не входит в промежуток [-20;10)');
end;
end.
Не нашли ответ?
Похожие вопросы