Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.
Program p1
var i,s:real
Begin
WriteLn (введите стоимость 1 кг конфет)
For i:=1 to 10 do
WriteLn дальше помогите

Program ads;vari :integer;z,x,a :real;beginwriteln(Введи цену за килограмм);readln(z);//Узнаём цену за 1 кг.a:=0.1;//начальный вес 100 грамм.for i :=1 to 10 do beginwrite(Цена за );write(a:5:2); //Выводим весx:=z*a;//Высчитываем цену за a граммa:=a+0.1;//прибавляем 100 граммwrite( килограмм равна - );write(x:5:2);//Выводим цену за весwriteln;end;readln;end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.