Question

Вывести программу по информатике: имеется сумма денег покупаем 3 вещи найти остаток денег после приобретения такую как: program ...; var ...; begin...; и так далее

Answer 1

Program pokypka;
var s,os,v1,v2,v3:integer;
begin
 writeln('Введите имеющуюся сумму'); 
readln(s); 
writeln('Введите цену первой вещи'); 
readln(v1);
 writeln('Введите цену второй вещи '); 
readln(v2);
 writeln('Введите цену третьей вещи'); 
readln(v3);
 os:=s-v1-v2-v3;
 writeln('Остаток денег=',os)
end.

Answer 2

Конечная программа может выглядеть следующим образом:

program CalculateRemainder; var totalMoney, item1Price, item2Price, item3Price, remainingMoney: integer;

begin // Ввод суммы денег writeln('Введите сумму денег:'); readln(totalMoney);

// Ввод цен каждой вещи writeln('Введите цену первой вещи:'); readln(item1Price); writeln('Введите цену второй вещи:'); readln(item2Price); writeln('Введите цену третьей вещи:'); readln(item3Price);

// Расчет остатка денег remainingMoney := totalMoney - item1Price - item2Price - item3Price;

// Вывод остатка денег writeln('Остаток денег после покупки трех вещей:', remainingMoney); end.