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.
Оцени ответ
