Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program xxx;
var i, n, s : integer;
begin
write ('введите n =' );
readln (n);
s: =0;
for i: =1 to n do
s: = s+ sqr(i+1);
writeln ('сумма =' , s);
readln
end.
артефакт,инстинкт,антрацит,оригинал.
program zadacha2;
uses crt;
var i,n,a: integer;
b,y,c,l: real;
clrscr;
readln(n);
a: =1;
b: =2;
c: =5;
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
readkey;
первую по подробней расспишите
написано для pascal abc
uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.
Популярные вопросы