Помогите сделать программы! Вот условия: 1.Дана цена за 1.2кг конфет .Вывести цену за...

Question

Помогите сделать программы!
Вот условия:
1.Дана цена за 1.2кг конфет .Вывести цену за 1.2кг,1.4кг,...2кг.
2.Даны 2 целых числа a и b (a Заранее спасибо.

Answer 1

Var p12, p, m: real; i:integer;
begin
writeln('Введите цену (руб) за 1,2кг конфет: ');
readln(p12);
p:=p12/1.2;
m:=1;
writeln(' Вес    Цена');
for i:=1 to round((2-1.2)/0.2)+1 do
 begin
 m:=m+0.2;
 writeln(m:4:1,'  ',p*m:6:2,' руб');
 end;
end.

Пример:
Введите цену (руб) за 1,2кг конфет:
120
 Вес Цена
1.2 120.00 руб
1.4 140.00 руб
1.6 160.00 руб
1.8 180.00 руб
2.0 200.00 руб