Question

Пожалуйста помогите!! очень срочно, нужно написать программу скорей всего мне кажется в паскале1. Writel(' вести стоимость перчатки наприм')read (x)2 стоимость сумки- наприм.3.стоимость ремня- наприм.4.если общая сумма больше 800р, то вывести сумму с учетом 10% скидки5.если сумма меньше 800р, то вывести суммуПомогите пожалуйста очень нужно, благодарю!!!

Answer 1

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.

Answer 2

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.