Зная стоимость одного пирожка ,посчитать стоимость 2,3,...6 пирожков.

Question

Зная стоимость одного пирожка ,посчитать стоимость 2,3,...6 пирожков.

Comments

Написать программу для подсчёта, или что сделать? Конкретнее напишите.

Answer 1

Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.

Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:

var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.

Comments

По сути. решение неверное. Задача должна выполняться при любых условиях, а значит, что можно спросить хоть стоимость аж 100 пирожков, она должна дать нам результат.

---

в задаче не было указано что вычислить стоимость 2,3,...,n пирожков (кол-во пирожков вводится с клавиатуры), а всего лишь высчитать стоимость до 6 пирожков, какой вопрос - такое и решение ;)

---

Добавил программу с подсчётом стоимости с n-количеством пирожков

---

Просто кто-то в школе видимо плохо слушает. На экзамене если так же решите - только для данных, полученых на вход, то за ответ Вам дадут минимум баллов.