Помогите решить,буду благодарна!!!!
10-11 класс
|
Uses crt;
Var n,s,i:integer;
Begin
Clrscr;
N:=4;
S:=0;
I:=1;
While i<=n do
Begin
S:=s+i*n;
I:=inc(i);
End;
Writeln(s);
Readkey;
End.
Другие вопросы из категории
«1», далее дважды подряд записывается предыдущая последовательность. Вот первые последовательности, созданные по этому правилу: (1) 1 (2) 111 (3) 1111111. Сколько раз встречается цифра «1» в седьмой последовательности?
на 3(на языке Паскаль).
Определить количество двоичных разрядов достаточных для кодирования 510 различных состояний?
Читайте также
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
ит : проверить работу; взять тетрадь из пачки; выставить оценку; выяснить, остались ли ещё не проверенные тетради. Содержит ли полученный граф цикл?
Для каждого из перечисленных ниже десятичных чисел построили двоичную запись. Укажите число, двоичная запись которого содержит наибольшее количество значащих нулей.