Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
<span>END.</span>
Файл во вложении направляю на вам в группу для для покупок и в в
В графическом редакторе можно создавать рисунки. В операционной системе Windows самый простой графический редактор - это программа paint.Используя команду Ctrl+S, можно сохранить созданный рисунок. В названии файла нельзя использовать символы #,%,*,&,\,:,|,"". Чтобы распечатать рисунок используют команду "Файл" "печать".
Шестнадцатиразрядным (16 бит)
var t:array[0..19] of byte;
i,k,l,s:integer;
begin
k:=0;
l:=0;
s:=0;
for i:=0 to 19 do begin
t[i]:=random(21)-10;
write(t[i],' ');
if t[i]=0 then k:=k+1;
if t[i] mod 3=0 then s:=s+t[i];
l:=l+t[i];
end;
write('колво 0 ',k);
write('сумма кратных 3 ',s);
write('средне арефм ',l/20);
end.