составить алгоритм вычисления стоимости покупки , в которую входили 3 вида тетрадей, по разным ценам, а также стоимость этой покупки со скидкой 2 процента
Answers & Comments
hhhhh1
Var s,a:integer; i:byte; begin s:=0; For i:=1 to 3 do begin readln (a); // цена тетради s:=s+a; // прибавление к общей стоимости тетрадей end; writeln (s); end. смогли я Вам чем-нибудь помочь?
Answers & Comments
i:byte;
begin
s:=0;
For i:=1 to 3 do
begin
readln (a); // цена тетради
s:=s+a; // прибавление к общей стоимости тетрадей
end;
writeln (s);
end.
смогли я Вам чем-нибудь помочь?