Kakanakit
5 год назад
Пожалуйста посчитайте написать программы на языке Паскаль , пожалуйста срочно надо !!!
ОТВЕТЫ
Эммануил
Oct 24, 2020
1:
var
x, y: real;
begin
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
2:
var x,y: real;
begin
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then
writeln('true')
else
writeln('false');
end.
var
x, y: real;
begin
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
2:
var x,y: real;
begin
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then
writeln('true')
else
writeln('false');
end.
806
Смежные вопросы:
