Написать программу вычисления стоимости некоторого количества (по весу) яблок. Нижепредставлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости покупки.

Введите исходные данные:

Цена одного килограмма яблок (руб.) = 8.5

Вес яблок (кг) = 2.3

Стоимость покупки: 19.55 руб

написать на Turbo Pascal.

Question

Информатика

Ксенофонт

27 декабря, 09:15

Написать программу вычисления стоимости некоторого количества (по весу) яблок. Нижепредставлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости покупки.

Введите исходные данные:

Цена одного килограмма яблок (руб.) = 8.5

Вес яблок (кг) = 2.3

Стоимость покупки: 19.55 руб

написать на Turbo Pascal.

+1

Ответы (1)

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

Брина · Answer 1

Program appl;

var c, s, n:real;

begin

writeln ('Вычисление стоимости покупки.') ;

writeln ('Введите исходные данные:') ;

write ('Цена одного килограмма яблок (руб.) = ') ;

readln (c) ;

write ('Вес яблок (кг) = ') ;

readln (n) ; s:=c*n;

write ('Стоимость покупки: ', s,' руб') ;

end.