Там где символы не понятные это разделители задач, 3 из 4
program task;
const n=15;
var a:array[1..n] of integer;
i,s,j,first,max: integer;
begin
óñëîâèå À
begin
a[i]:=0+random(15);
write(a[i]:4);
if(i mod 2=0) then
s:=s + a[i];
end;
çàäà÷à Á
begin
a[i]:=0+random(15);
write(a[i]:4);
end;
writeln();
max:=1;
for i:=1 to n do
if a[i]>a[max] then max:=i;
first:=a[1];
a[1]:=a[max];
a[max]:=first;
writeln('Âåêòîð:');
for i:=1 to n do
çà÷à Â
for i:= 1 to 15 do begin
a[i]:= random(20);
write(a[i],' ');
if a[i] > 0 then
end;
writeln;
writeln;
for i:= 1 to 14 do
for j:= i+1 to 15 do
if a[i] < a[j] then begin
max:= a[i];
a[i]:= a[j];
a[j]:= max;
end;
for i:= 1 to 15 do begin
write(a[i],' ');
end;
end.
По углам и по середине один
Так как один байт=8 битам вот
840.000 бит:8=105.000 байтов
qbasic
? "Введите число"
INPUT A
A:2=B
IF B=INT(B) THEN 1 ELSE 2
1 ? "Это число четное" : GOTO 3
2 ? "Это число не четное"
3 END
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
![10^{2}](https://tex.z-dn.net/?f=10%5E%7B2%7D+)
+4*
![10^{1}](https://tex.z-dn.net/?f=10%5E%7B1%7D+)
+3*
![10^{-1}](https://tex.z-dn.net/?f=10%5E%7B-1%7D+)