Номер 10 ( а и б) решите пожалуйста!!! срочно

0 голосов
28 просмотров

Номер 10 ( а и б) решите пожалуйста!!!
срочно


image

Информатика (15 баллов) | 28 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

А)
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if y<=1 then writeln('Да') else writeln('Нет');<br>end.

Пример:
x = 2
y = -1
Да

б)
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if y<=-x then writeln('Да') else writeln('Нет');<br>end.

Пример:
x = 2
y = -1
Нет

(194k баллов)