Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов.
Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов.
Гость
Ответ(ы) на вопрос:
Гость{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. думаю так
Гостьvar inch:integer;
begin
writeln('* alphaues is thinking... *');
writeln;
writeln('*******************************');
for inch:=1 to 20 do
writeln('* ',inch,' inches = ',inch*2.54,' *');
writeln('*******************************');
end.
Не нашли ответ?
Похожие вопросы