Помогите сделать программы!
Вот условия:
1.Дана цена за 1.2кг конфет .Вывести цену за 1.2кг,1.4кг,...2кг.
2.Даны 2 целых числа a и b (a Заранее спасибо.
Вот условия:
1.Дана цена за 1.2кг конфет .Вывести цену за 1.2кг,1.4кг,...2кг.
2.Даны 2 целых числа a и b (a Заранее спасибо.
More Questions From This User See All
Answers & Comments
Verified answer
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 руб