PLEASE . HELP ME. Дано вещественное число - цена 1 кг конфет. Вывести стоимость 1.2 , 1.4, ... , 2 кг конфет.
PLEASE . HELP ME.
Дано вещественное число - цена 1 кг конфет.
Вывести стоимость 1.2 , 1.4, ... , 2 кг конфет.
Гость
Ответ(ы) на вопрос:
Гостьprogram konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
end.
Не нашли ответ?
Похожие вопросы