Написать программу на паскале

Если данное число х меньше нуля, то Z присвоить значение большего из 2 чисел х и у, иначе Z присвойте значение полсуммы этих чисел.

Question

Информатика

Нинюра

27 июля, 15:11

Написать программу на паскале

Если данное число х меньше нуля, то Z присвоить значение большего из 2 чисел х и у, иначе Z присвойте значение полсуммы этих чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Иваша · Answer 1

Program Z;

Uses Crt;

var x, y, z:real;

begin

clrscr;

write ('Введите х: ') ;

readln (x) ;

write ('Введите y: ') ;

readln (y) ;

if (xy) then z:=x;

if (x<0) and (x
if (x>=0) then z: = (x+y) / 2;

writeln ('z=', z) ;

readkey;

end.

Написать программу на паскалеЕсли данное число х меньше нуля, то Z присвоить значение большего из 2 чисел х и у, иначе Z присвойте значение полсуммы этих чисел.

Написать программу на паскале

Если данное число х меньше нуля, то Z присвоить значение большего из 2 чисел х и у, иначе Z присвойте значение полсуммы этих чисел.