Question

Напечатать таблицу соответствия между весом в кг и весом в граммах для значений от 5 до 50 кг с шагом 5 ко(pascal)

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  for var i := 1 to 10 do
    writeln(5 * i, ' кг = ', 5000 * i, ' г');
end.

Answer 2

Я могу помочь вам с вашим запросом. Вы хотите напечатать таблицу соответствия между весом в кг и весом в граммах для значений от 5 до 50 кг с шагом 5 кг. Это можно сделать с помощью языка программирования Pascal. Вот пример кода, который решает вашу задачу:

program WeightTable;
var
  kg, g: integer;
begin
  writeln('Вес в кг | Вес в граммах');
  writeln('-------------------------');
  kg := 5;
  while kg <= 50 do
  begin
    g := kg * 1000;
    writeln(kg:5, ' | ', g:12);
    kg := kg + 5;
  end;
end.

Если вы запустите этот код, вы получите следующий вывод:

Вес в кг | Вес в граммах
-------------------------
    5 |         5000
   10 |        10000
   15 |        15000
   20 |        20000
   25 |        25000
   30 |        30000
   35 |        35000
   40 |        40000
   45 |        45000
   50 |        50000

Надеюсь, это поможет вам. Если у вас есть еще вопросы, пожалуйста, спрашивайте.