вывести программу по информатике: имеется сумма денег приобретаем 3 вещи отыскать

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

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


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт