Вопрос по информатике:
Мама послала Петю в магазин за продуктами, дав ему 500 рублей. Известна стоимость каждого из 7 продуктов, которые он купил. Определить, хватит ли Пете
денег для покупки данных продуктов. ( Паскаль )
- 10.12.2017 21:28
- Информатика
- remove_red_eye 12438
- thumb_up 9
Ответы и объяснения 1
Var ar:array[1..7] of integer;
k,i:integer;
begin;
for i:=1 to 7 do
begin;
writeln('Введите цену ',i,' продукта:');
readln(ar[i]);
k:=k+ar[i];
end;
if k>500 then writeln('Не хватит') else writeln('Хватит');
end.
- 11.12.2017 14:57
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.