Question

Помогите составить программу решения задачи в паскале АВС. Дано вещественное число - цена  1 кг конфет. Вывести стоимость 0.1,0.2...,1кг конфет

Answer 1

Var C, i: real;
begin
     readln(C); 
     i := 0.1;
     while (i <= 1) do
     begin
          writeln(C * i);
          i := i + 0.1;
     end;
end.

Уже решал, но теперь по-другому)

Answer 2

Конечно, вот программа на языке Pascal, которая решает вашу задачу:

pascalCopy code
program CalculateCandyCost;

var
  pricePerKg, weight, totalCost: real;
  i: integer;

begin
  // Вводим цену за 1 кг конфет
  write('Введите цену за 1 кг конфет: ');
  readln(pricePerKg);

  // Используем цикл для подсчета стоимости
  for i := 1 to 10 do
  begin
    weight := i * 0.1; // определяем вес в кг
    totalCost := pricePerKg * weight; // рассчитываем стоимость

    // Выводим результат
    writeln('Стоимость ', weight:0:1, ' кг конфет: ', totalCost:0:2, ' руб.');
  end;

  readln;
end.

Программа запрашивает у пользователя цену за 1 кг конфет, а затем с использованием цикла for вычисляет стоимость 0.1, 0.2, ..., 1 кг конфет и выводит результат на экран.

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

Copy code
Стоимость 0.1 кг конфет: 10.00 руб.
Стоимость 0.2 кг конфет: 20.00 руб.
Стоимость 0.3 кг конфет: 30.00 руб.
Стоимость 0.4 кг конфет: 40.00 руб.
Стоимость 0.5 кг конфет: 50.00 руб.
Стоимость 0.6 кг конфет: 60.00 руб.
Стоимость 0.7 кг конфет: 70.00 руб.
Стоимость 0.8 кг конфет: 80.00 руб.
Стоимость 0.9 кг конфет: 90.00 руб.
Стоимость 1.0 кг конфет: 100.00 руб.