Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для

21 августа 2016 / Школа

Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20

дюймов.


комментария 2
  1. mrproper89
    21 августа 2016 в 14:52 – Ответить

    {Pascal ABC.NET}

    var i:integer;

           b:array[1..20] of real;

    begin

    for i:=1 to 20 do

    begin

    b[i]:=i*2.5;

    writeln(b[i]);

    end;

    end.

    думаю так

  2. Alphaeus
    21 августа 2016 в 14:52 – Ответить

    var inch:integer;
    begin
      writeln(‘*   alphaues is thinking…   *’);
      writeln;
      writeln(‘*******************************’);
      for inch:=1 to 20 do
         writeln(‘*      ‘,inch,’ inches = ‘,inch*2.54,’      *’);
      writeln(‘*******************************’);
    end.

Добавить комментарий