Составьте блок-схему. program a3; var: x, y, z:real; - вопрос №125979473 от Lambik290 04.01.2020 17:50

Question

Информатика: Составьте блок-схему. program a3; var: x, y, z:real; begin writeln( Введите три числа ) readln(x, y, z); if(x =y)and(y =z) then begin x:=2*z; y:=2*y; z:=2*z; end else begin x:=abs(x); y:=abs(y); z:=abs(z) end writeln(x, , y, ,z) end

Lambik290 · Answer

Я уже делала почти такой же пример! но у меня получилось ответ вроде бы равен нулю ну как то так...

Составьте блок-схему. program a3; var: x, y, z:real; begin writeln('Введите три числа') readln(x, y, z); if(x<=y)and(y<=z) then begin x:=2*z; y:=2*y; z:=2*z; end else begin x:=abs(x); y:=abs(y); z:=abs(z) end writeln(x,", y,",z) end

Составьте блок-схему.

program a3;
var: x, y, z:real;
begin
writeln('Введите три числа')
readln(x, y, z);
if(x<=y)and(y<=z)
then
begin
x:=2z;
y:=2y;
z:=2*z;
end
else
begin
x:=abs(x);
y:=abs(y);
z:=abs(z)
end
writeln(x,", y,",z)
end