<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
Надсистема – большая система, в которую входит данная. "А является надсистемой Б" часто можно заменить на "в А входит Б".
Школа ← образование
Больница ← здравоохранение
Автомобиль ← дорожное движение
Река ← гидросфера
Планета ← галактика
Ответ на картинке,внизу
Очень легкое задание
Function Pow(m,n:integer):longint;
var
i:byte;
p:longint;
begin
p:=1;
for i:=1 to n do p:=p*m;
Pow:=p
end;
begin
Writeln('1 Кбайт=',Pow(2,10),' байт');
Writeln('1 Мбайт=',Pow(2,20),' байт');
Writeln('1 Гбайт=',Pow(2,30),' байт');
end.