<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c1:=ReadReal('Цена первой покупки:');
var c2:=ReadReal('Цена второй покупки:');
var c3:=ReadReal('Цена третьей покупки:');
var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
var p:=ReadReal('Внесена сумма:');
Writeln('Причитается сдача: ',p-s)
end.
<u>Пример</u>
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98
Const n=8;
var x:array[1..n] of real;
i:integer; min:real;
begin
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
min:=x[1];
for i:=2 to n do
if x[i]<min then min:=x[i];
for i:=1 to n do
if x[i]<0 then x[i]:=min;
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.
</span>
Ответ:
если 2 это система счисления, то ответ: 8
Системный признак (категория) текста, связанный со свойством текста фиксировать знания о мире, отражающие авторское мировосприятие, выраженное в конкретной речевой форме.
Выделяют виды
<span> Выделяются следующие виды информации информаций: логическая и эстетическая.</span>
Program z1;
var x,y:real;
begin
writeln('Введите x');
readln(x);
y:=(2*x+3)*(7*x-5)
writeln('y=',y:3:2);
end.
_
_
program z1;
var x,y:real;
begin
writeln('Введите x');
readln(x);
y:=2-(x-3)/sqr(x-3)+4
writeln('y=',y:3:2);
end.