Переменная s сумма n последний член
procedure proc(s,n: integer);
<span>begin
s:=s+sqr(n);
if n>0 then proc(s,n-1) else
writeln(' s= ', s:3)
</span>end;
var n:integer;
<span>begin
readln(n);
proc(0, n);
readln
</span><span>end. </span>
Генератор тактовой частоты(генератор тактовыхимпульсов) генерирует электрические импульсы заданной частоты (обычно прямоугольной формы) для синхронизации различных процессов в цифровых устройствах — ЭВМ, электронных часах и таймерах, микропроцессорной и другой цифровой технике.
Для начала сосчитаем количество пикселей в изображении - 10*10=100 пикселей.
Есть 2 варианта на каждый пиксель - он может быть либо черным, либо белым, соответственно, информация о том, что один пиксель - белый несет в себе 2 бита. Всего у нас пикселей 100, отсюда получаем количество возможных вариантов: 2*100=200 бит.
Когда человек собирает сведения об окружающем мире, он собирает информацию. Эта информация, накапливаясь тысячелетиями, сохраняется в виде примет, личного опыта. Фундаментальные знания о природе, связанные с наблюдением за ней, легли в основу таких наук как физика, химия, биология, геология и смежных с ними современных учениях. Ответом на вопрос станет только одно слово - информация.
uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.
