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.
Прикладная программа— это любая конкретная программа,
способствующая решению
какой-либо задачи в пределах данной проблемной области.
Чтобы в другое время тебя этот ужасный звук не беспокоил: все вместе спустили и всем хорошо)))
123-четырехричная(4) 10=302
222-трехричная(3) 10=211
111-двухричная(2) 10=1111
241-пятеричная(5) 10=400
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>