program z1;
var x: real;
begin
readln(x);
x:=x/4;
if x>= 15 then
x:=x+12;
if x>20 then
x:=x*5;
x:=x-25
end
else
x:=x*3;
x:=x+13
x:=x+6;
if x>=10 then
x:=x*11;
x:=x+24
x:=x*4;
x:=x-8
end;
writeln (x)
end.
1. 20 (x = 4)
2. 220 (x = 148)
Объяснение:
Левая сторона - да, правая сторона - нет (относительно человека смотрящего на схему)
program z1;
var x: real;
begin
readln(x);
x:=x/4;
if x>= 15 then
begin
x:=x+12;
if x>20 then
begin
x:=x*5;
x:=x-25
end
else
begin
x:=x*3;
x:=x+13
end
end
else
begin
x:=x+6;
if x>=10 then
begin
x:=x*11;
x:=x+24
end
else
begin
x:=x*4;
x:=x-8
end
end;
writeln (x)
end.
1. 20 (x = 4)
2. 220 (x = 148)
Объяснение:
Левая сторона - да, правая сторона - нет (относительно человека смотрящего на схему)