На уроке мы составили программу для решения задачи о стоимости покупки в магазине:
В магазине купили перчатки, портфель, галстук. Составить программу на языке Паскаль, которая будет считать сумму всей покупки и выводить на экране фразу «Покупка стоит … рублей».
Задание:
Измените данную программу так, чтобы она считала остаток денег после покупки.
Подсказка: для решения задачи необходимы еще две переменных: 1 – для ввода количества всех денег у покупателя (назовем ее r), 2 – для подсчета остатка денег у покупателя после оплаты покупки (назовем ее ostatok).
В конце программы должна выводиться фраза:
writeln('у вас осталось ',ostatok,'руб');
ответ:20% отличников.
//Программа на языке паскаль:
program zagadka;
var s: String;
begin
writeln('Сидит девица в темнице, а коса на улице.');
readln(s);
while(s <> 'Морковь')
do begin
writeln('Не угадал. Попробуй еще раз');
readln(s);
end;
writeln('Правильно. Угадал!');
end.
/*
Описание:
Выводим пользователю загадку и просим его ввести ответ. Пока пользователь не угадает, просим его снова и снова вводить ответ, предварительно написав, что он ошибся. Как только мы получаем правильный ответ, программа выводит пояснение пользователю, где пишет, что тот угадал. Программа заканчивает свою работу.