<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
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
Не парься,поймешь,это временно)))там свой принцип,спраси у информатички)
Жили были кнопки. и они путешевствовали по рабочему столу. вдруг одна застряла в какой-то гуще! это было варенье! кнопки сказали это все из-за тебя! нельзя кушать за компьютерным столом!
var
a: real;
begin
writeln ('введи произвольное число');
read (a);
if a>0 then writeln ('да');
f a<=0 then writeln ('нет');
end.