<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
Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>
3) пристрої вводу та виводу інформації...
1) електричні прилади
2)Пристрої обчіслення інформації
4) пристрої вводу інформації
5 ) честно кажучи не знаю як обеднати калькулятор з блокнотом ...
Var m:integer;
begin
write('m = '); readln(m);
case m of
1 : writeln('один бань');
5 : writeln('пять бань');
10: writeln('десять бань');
25: writeln('двадцать пять бань');
50: writeln('пятьдесят бань');
else writeln('недопустимое значение');
end;
end.
Пример:
m = 25
двадцать пять бань
Автомобиль-двигатель,кузов, бензобак салон
молекула воды-молекулы водорода и кислорода.
компьютер-процессор монитор,клавиатура
магазин-касса,полки, продукты
Система-планеты звёзды астероиды
семья-родители дети.
футбольная команда капитан тренер игроки вратарь.
армия полководец командир артиллерия солдаты