Составить программу перевода расстояния в дюймах в сантиметры (1 дюйм = 2,54 см). Дюймы изменяются от 1 до 10 с шагом 1. Вывод оформить в виде таблицы. Написать на Pascal.

Программа на Pascal:

program InchesToCentimeters;
var
  i: integer;
  cm: real;
begin
  writeln('Дюймы':10, 'Сантиметры':15);
  for i := 1 to 10 do
  begin
    cm := i * 2.54;
    writeln(i:10, cm:15:2);
  end;
end.

Цикл перебирает значения дюймов от \(1\) до \(10\), а формула перевода такая: \(cm = inch \cdot 2{,}54\).

0 0 Пожаловаться