помогите составить программу срочно надо!
вот фото
Приложения:
![](https://st.uroker.com/files/621/6218a3fa996d3a0d81b2b97c37127146.png)
Аноним:
Поподробней: на каком языке, какие входные данные???
Ответы
Ответ дал:
1
program Uslowie;
uses Crt;
var x: real;
begin
ClrScr;
Write('x = '); 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-25;
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 = ', x:6:2);
ReadLn;
end.
uses Crt;
var x: real;
begin
ClrScr;
Write('x = '); 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-25;
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 = ', x:6:2);
ReadLn;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад