1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
<span>End.
</span>3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
<span>End.</span>
A матрица(массив)
m и n границы матрицы
min:integer; минимальное. indexmin:string
max:integer; максимальное. indexmax:string
min:=a[1,1];
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]>max then begin max:=a[i,j]; indexmax:=inttostr(i)+' '+inttostr(j); end;
if a[i,j]<min then begin min:=a[i,j]; indexmin:=inttostr(i)+' '+inttostr(j); end;
end;
writeln(max,indexmax);
writeln(min,indexmin);
А)M mod 2 = 0
Т.к. остаток деления четного числа на 2 должен равняться 0
В последовательности всего два символа, длина - 7 Таких последовательностей будет 2^7 = 128
In=I*X*Y=24 бита *800*600=11520000 бит=1 440 000 байт = 406,25кбайт=1,37 мбайт