Procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;
begin
writeln('vvedite n');
readln(n);
s(n,null);
end.
Program ryazantsev;
var i,p: integer;
first: boolean;
a: array[1..10] of integer;
begin
p:=1; first:=true;
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент массива');
readln(a[i]) //Заполнение массива числами с клавиатуры
end;
for i:=1 to 10 do begin
if (a[i] mod 5 = 0) and (a[i]>8) then begin p:=p*a[i];
first:=false
end
end;
if first then p:=0; //Не было ни одного числа, удовлетв. нашим условиям
writeln(p)
end.
Открыть,изменить,копировать,вставить ,удалить
Const n=20;
var x : array[1..n] of integer;
i, max, min : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(181)-50;
write(x[i],' ');
end;
writeln;
max:=x[1]; min:=x[1];
for i:=2 to n do
begin
if x[i] > max then max:=x[i];
if x[i] < min then min:=x[i];
end;
writeln('max=',max,' min=',min);
<span>end.
Пример:
Исходный массив:
-34 -23 -38 15 108 21 -25 -29 15 -34 34 8 20 76 -27 -43 -17 89 95 -28
<span>max=108 min=-43</span></span>
всего точек 60*50= 3000
1 точка равна 1 биту
1*3000= 3000 бит памяти занимает изображение