код TP7 с циклом for to do

[D1zz1]

. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, … , 10 кг конфет.
Будет ли код этой задачи похож на этот?

Program aser;
var y,h,x,a,b:real;
    m,i:integer;
Begin
a:=1;
b:=2;
m:=20;
h:=(b-a)/m;
x:=a;
if x>2*pi/3 then writeln('tochka ne vhodit v [a;b]');
For i:=0 to m do
begin
y:=cos(x);
write('"x"=',x:2:2);
writeln('    "y"=',y:2:2);
x:=x+h;
end;
readln;
end.

тут цену самому поставить, или сделать лучше возможность ввода любой цены?

[Alex11223]

Эм... А как этот код связан с заданием? Имхо надо просто получить откуда-то цену на на 1 кг (ввести, например, или используя random) и цикл

for i:=1 to 10 do
   writeln(i, ' kg: ', cena*i:4:2);

[D1zz1]

нет, просто задания похожи, вот и спрашиваю получится ли на подобии написать прогу на это задание? код от другого задания

[D1zz1]

надо вывести цены конфет на 1, 2..10 кг сразу все, а не циклом

[Alex11223]

Ну какое-то сходство действительно есть, но вроде же задание и так не сложное. Объявил нужные переменные, ввел цену и цикл похожий на тот, что в сообщении выше, вот и вся программа.
что значит "сразу"? в задании же написано про цикл. Он и выведет их сразу, один за другим.

[Mad_Cat]

(*Абрамян For4*)
program for4;
var x:real;
i:integer;
begin
writeln('Введите цену за 1 кг конфет');
readln(x);
for i:=1 to 10 do
writeln(i,' кг конфет стоит ',x*i);
end.
(**)