Написать программу на языке Pascal вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких

карандашей. Стоимость одной тетради - 10 рублей, стоимость одной ручки - 20 рублей, стоимость одного карандаша - 10 рублей. Это неизменные величины. Количество тетрадей, ручек и карандашей вводится пользователем и может быть различным.

Question

Информатика

Леонтьюшка

28 октября, 10:27

Написать программу на языке Pascal вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких

карандашей. Стоимость одной тетради - 10 рублей, стоимость одной ручки - 20 рублей, стоимость одного карандаша - 10 рублей. Это неизменные величины. Количество тетрадей, ручек и карандашей вводится пользователем и может быть различным.

+5

Ответы (1)

Знаете ответ?

Мелаша · Answer 1

Program symma;

var

t, r, k, s: integer;

begin

write ('введите количество тетрадей ') ;

readln (t) ;

write ('введите количество ручек') ;

readln (r) ;

write ('введите количество карандашей') ;

readln (k) ;

s:=0;

s:=t*10+r*20 + k*10;

writeln ('стоимость покупки=', s) ;

end.