1. Дана программа на языке Паскаль:
program a3;
var x, y, z: real;
begin
writeln ('BBEAVTE Tpu Yncha');
readln (x, y, z);
if (x<=y) and (y<=z)
then
begin
x:=2*x;
y:=2*y;
z:=2*z
end
else
begin
x:=abs(x);
y:=abs(y);
z:=abs(z)
end
VERTITYTTY
non

Составить блок-схему.
Решите зарание

Daffynsky01    3   14.04.2020 20:48    0