var p, k, c, a, m : real;
Begin
writeln('vvedi p k c a');
Readln(p,k,c,a);
M:=p*a + 0.5*k*a + 0.2*c*a;
Writeln(m);
End.
Похожие записи/страницы:
- Дан номер единицы массы (целое число в диапазоне 1–5) и масса тела в этих единицах (вещественное число). Найти…
- Написать программу, которая бы по введенному номеру единицы измерения (1 — килограмм, 2 — миллиграмм, 3 — грамм,…
- Единицы массы пронумерованы следующим образом: 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер.…
- Используя оператор выбора CASE, cоставить программу, которая по введённому номеру единицы измерения (1 –…
- C клавиатуры вводятся размеры больших заготовок (основы) (из каких позже будут вырезаются меньшие заготовки)…
- Вини-Пух на каждый свой день рождения съедает столько еды, сколько съел на двух предыдущих… на первых двух днях…
- У предпринимателя N ящиков, в каждом из которых по B кг товара. Определить, какой штраф он оплатит комитету по…
- Создать массив четных чисел типа INTEGER количеством 15 штук и вывести их на экран - Pascal(Паскаль)