Написать программу вычисления стоимости некоторого количества (по весу) яблок.

Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,

введенные пользователем, выделены полужирным шрифтом).

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

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

Цена

одного килограмма яблок (руб.) - > 8.5

Вес яблок (кг) - >

2.3

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

Question

Информатика

Моника

22 июня, 22:09

Написать программу вычисления стоимости некоторого количества (по весу) яблок.

Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,

введенные пользователем, выделены полужирным шрифтом).

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

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

Цена

одного килограмма яблок (руб.) - > 8.5

Вес яблок (кг) - >

2.3

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

+2

Ответы (1)

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

Себастьян · Answer 1

Var

a, c : real;

begin

Writeln ('Ведите исходные данные') ;

writeln ('ценна одного кг яблок') ;

readln (a) ;

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

readln (c) ;

writeln ('Стоимость покупки: ', a*c:0:2, ' руб ') ;

end.