Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. utfa.fps
2.какую программу?
3. x(n)=5n²-4n-1
xn-нечётное тогда, когда n-чётное
x(0)=-1
x(2)=11
x(4)=63
x(6)=155
x(8)=287
x(10)=459
x(12)=671
x(14)=923
x(16)=1215
x(18)=1547
x(20)=1919
var c,a,b,i,j,l: integer; begin cls;
write('введите через пробел отрезок'); read(a,b); for i: =a to b+1 do begin j: =2; l: =round(sqrt(i)); while (i mod j < > 0) and (j < = l) do begin inc(j); end; if (j > l) then begin write(c,' '); c: =i; end; end; end.
смотри блок-схему в приложенном файле
var
s,n,i: integer;
begin
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
writeln(s);
end.
Популярные вопросы