VAR i: real;
a:integer;
begin
FOR a:=1 TO 10 DO
begin
i:=a*1.825 ;
writeln(a:7,' ',i:7:3);
end;
end.
Похожие записи/страницы:
- Дано натуральное k. Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм=2,54 см) для значений…
- Напечатать таблицу значений функции у=ln х-х*х на отрезке [0,5, 1,5] с шагом 0,1 - Pascal(Паскаль)
- Написать программу которая выводит таблицу значений функции y=|x-2|+|x+1|в диапазоне от -4 до 4 с шагом 0,5 -…
- Напечатать таблицу с шагом 10?, от 0? до 90?. Х, град Х, рад Sin(x) Sin(x2) Sin2(x) - Pascal(Паскаль)
- Вывести на экран таблицу вычисленных значений Y при изменении Х в интервале [0,1 ÷1,7] с шагом h=0.2, а = 0,2 по…
- Вычислить и напечатать для различных значений x значения выражения y=Σ(x-1)^n /n*n... , где n от 1 до 10.…
- Табулирование функции y=sin(x) на отрезке [1,5] с шагом 0.5.Вывод осуществить в таблицу - Pascal(Паскаль)
- Составить программу перевода величины силы: фунт-сила в ньютоны от 30 до 300 фунт-сила с шагом 30. 1 фунт-сила =…