Написать программу решающую задачу: 1. Напечатать таблицу перевода расстояний в дюймах в...

Question

Написать программу решающую задачу:
1. Напечатать таблицу перевода расстояний в дюймах в сантиметрах (1 дюйм=2,54 см) для значений от 1 до 10 дюймов с шагом 1.

Answer 1

Program p1;
var d:integer;
    s:string;
begin
for d:=1 to 10 do
begin
  if d>1 then s:='а';
  if d>4 then s:='ов';
  writeln(d,' дюйм',s,' = ',(d*2.54),' сантиметров');
end;
end.