Question

Задачка в Паскаль. Дана стоимость одного 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.

Answer 1

program qwerty;

var a,b,c: real;

begin

write('Введите стоимость 1 кг конфет: ');

readln(a);

b:= 0;

c:= 0;

while c<10 do

begin

c:=c+1;

b:=b+a;

writeln('Стоимость ',c,' кг конфет равна ',b);

end

end.

Answer 2

var x, y, a:integer;

begin

writeln('введите сколько кг');

read(x);

writeln('введите сколько стоит 1 кг');

read(y);

a:=x*y;

writeln(a);

end.

Answer 3

В Паскале можно решить эту задачу с помощью цикла. По условию дана стоимость одного килограмма конфет, обозначим ее переменной costPerKg.

Создадим переменную totalCost и присвоим ей значение нуля. Эта переменная будет хранить общую стоимость конфет.

Затем запустим цикл от 1 до 10, каждую итерацию увеличивая переменную i на 1. Внутри цикла увеличим totalCost на значение costPerKg.

Вот код, решающий данную задачу на языке Паскаль:

program CalculateCost;

var
  costPerKg, totalCost: real;
  i: integer;

begin
  writeln('Введите стоимость 1 кг конфет:');
  readln(costPerKg);

totalCost := 0;
  for i := 1 to 10 do
  begin
    totalCost := totalCost + costPerKg;
    writeln('Стоимость ', i, ' кг конфет: ', totalCost:0:2);
  end;

readln;
end.

Пользователь сначала вводит стоимость 1 кг конфет. Затем программа с помощью цикла выводит стоимость 1, 2, ..., 10 кг конфет, увеличивая totalCost на costPerKg на каждой итерации цикла.

Например, если пользователь введет стоимость 1 кг конфет 100 рублей, программа выведет:

Стоимость 1 кг конфет: 100.00
Стоимость 2 кг конфет: 200.00
Стоимость 3 кг конфет: 300.00
Стоимость 4 кг конфет: 400.00
Стоимость 5 кг конфет: 500.00
Стоимость 6 кг конфет: 600.00
Стоимость 7 кг конфет: 700.00
Стоимость 8 кг конфет: 800.00
Стоимость 9 кг конфет: 900.00
Стоимость 10 кг конфет: 1000.00

Таким образом, мы получаем стоимость 1, 2, ..., 10 кг конфет, увеличивая totalCost на 100 рублей на каждой итерации цикла.