Question

Паскаль,линейный алгоритм

Написать программу вычисления стоимости некоторого количества яблок ,если указаны из вас и цена.Ниже представлен рекомендуемый вид экрана во время выполнения программы:
Сколько весят яблоки?=> 15.5
Сколько стоит килограмм яблок?=>32
За покупку заплатили 496.00 рублей

Answer 1

Pascal:

program yabloki;

Var a,b,e: real;

Begin

write ('Сколько весят яблоки?=> ');

readln (a);

write ('Сколько стоит килограмм яблок?=> ');

readln (b);

e:=a*b;

writeln ('Цена ',e);

End.