Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
a, d : real
s: array[1..20] of real;
begin
write('введите n-');
readln (n);
write('введите а=');
readln(a);
write('введите d=');
readln(d);
s[1]: =a;
for i: =2 to n do
s[i]: =a+d;
write('арифметическая прогрессия: ');
for i: =1 to n do
write(s[i]);
end.
2048 бит : 8: 1024= 0.25 кбайт
- лондонгермания - берлиниспания - мадридиталия - римпольша - варшаваукраина - киевфранция - париж
да както сама удивилась как мало я знаю(
длину окружности
l=2*пи*r
r=√(х^2+х^2/2)
l=2*пи*√(х^2+х^2/2)
подставим х
при х=2.56789
l=19.7607=19.761
при х=345.678
l=2660.09556=2660.096
Популярные вопросы