Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг...

Question

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

Answer 1

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

Comments

Что значит write(a:5:2);