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

2

Ответы и объяснения

2013-05-17T00:06:51+04:00

{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.

думаю так

2013-05-17T00:33:32+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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