Question

Помогите прошу , это задача спасет мою итоговую оценку !!!!
Язык Паскаль

Answer 1

Ответ:

program 1;

var x, y: integer;

begin

writeln (‘введите x’);

readln (x);

writeln (‘введите y’);

readln (y);

if x>y then writeln (x)

else writeln (y);

end.

Program 2;

var x, y: integer;

begin

writeln (‘введите x’);

readln (x);

writeln (‘введите y’);

readln (y);

if x=0 then writeln (‘нет решений’)

else begin

y:=1/x;

writeln (‘y= ‘, y);

end;

end.

Примечание: строки writeln (‘введите х’) и writeln (‘введите у’) выводят на экран соответствующую надпись, подсказку, что нужно ввести значение соответствующей переменной. Если это не нужно, их можно не писать.