Регистрация
nky43939nky
06.03.2020 01:39
Информатика
Есть ответ 👍

Даны 3 числа x, y, z. Если числа даны по возрастанию, то удвоить каждое из них, иначе извлечь модуль. Написать программу в паскале и блок - схему

175
280
Посмотреть ответы 2

Ответы на вопрос:

nick121201
nick121201
4,8(48 оценок)

program xyz;

uses

crt;

var

x, y, z: real;

begin

writeln('Введите числа x, y, z:');

readln(x, y, z);

if (x < y) and (y < z) then

begin

x := x * 2;

y := y * 2;

z := z * 2;

end

else

begin

x := abs(x);

y := abs(y);

z := abs(z) ;

end;

writeln('x= ',x, ';') ;

writeln('y= ',y, ';') ;

writeln('z= ',z, ';') ;

end.


Даны 3 числа x, y, z. Если числа даны по возрастанию, то удвоить каждое из них, иначе извлечь модуль
опв4
опв4
4,4(87 оценок)
45 секунд летит свет от солнца до земли

Популярно: Информатика