Написать программу вычисления стоимости некоторого количества (по весу) яблок.
10-11 класс
|
Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,
введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена
одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) ->
2.3
Стоимость покупки: 19.55 руб.
var
a,c : real;
begin
Writeln('Ведите исходные данные');
writeln('ценна одного кг яблок');
readln(a);
writeln('Вес яблое (кг)');
readln(c);
writeln('Стоимость покупки: ',a*c:0:2, ' руб ');
end.
Другие вопросы из категории
скорость увеличилась в пять раз. Какое время ей понадобилось, чтобы скачать весь файл размером 910 Мбайт. Ответ записать в часах, округлив по математическим правилам до целых чисел (без единиц измерения).
1)5* корень( 2х- у^2) - у^3/5
2)корень (у^4)
"Копейка". Например ,5 копеек,41 копейка и тд.
Вот мои попытки создать программу:
Program Kopeika;
Var a:integer;
begin
Writeln('Vvedite chislo');
Readln(a);
Case a of
'1,21,31,41,51,61,71,81,91': a:='Kopeika ';
'2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94': a:='Kopeiki ';
'5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99': a:=' Kopeek';
end;
Readln;
end.
Читайте также
(данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) -> 2.3
Стоимость покупки: 19.55 руб.
Количество ввести при помощи оператора READ/