Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
IPod ( это плеер от фирмы эпл туда можно скачивать песни с интернета и можно слушать музыку с флешки на нем всего 5 кнопок
Итак, знак доллара перед C означает, что при переносе формулы из ячейки сохранится столбец,то бишь это самое С,соответственно изменится только цифра. Итог $C5*2
var c:real;
begin
write ('Введите длину окружности: ');
read(c);
writeln ('Радиус равен: ', c/(2*pi):0:3);
writeln ('1/4 площади круга равна: ', pi*sqr(c/(2*pi))/4:0:3);
end.