Тема:работа циклов.
Вывести на экран таблицу пересчета ярдов в метры(от 1 ярда до 40 с шагом 10 ярдов).1 ярд=0,91440м.

1

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

  • vl81
  • середнячок
2013-11-27T19:28:53+00:00
Yard:= 0,91440;
yard1:=1;
metr:=1;
kolvo:=0;
while yard1<40 do
begin
kolov:=kolvo+(yard1*metr);
metr:=metr+1;
yard1:=yard1+1;
end;