Пожалуйста помогите!! очень срочно, нужно написать программу скорей всего мне кажется в

Ответы 2

program test;var x: integer;var y: integer;var z: integer;var sum: real;begin readln(x); readln(y); readln(z); sum:=x+y+z; if sum>=800 then sum:=sum -sum/10; writeln(Trunc(sum));end.
- Автор:
  javionvrkz
- 6 лет назад
- 0
var x,a,b,sum:integer;

begin

writeln ('Введите стоимость перчатки');

readln (x);

writeln ('Введите стоимость сумки');

readln (a);

writeln ('Введите стоимость ремня');

readln (b);

sum:=a+b+x;

if (sum>800) then writeln (sum-(sum/100*10));

if (sum<800) then writeln (sum);

end.
- Автор:
  ezra
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы