Попробуйте взять элементы физики, такие как разделы кинематики, динамики и прочее.
<span>Можно взять тело брошенное под определенным углом и смотреть его траекторию.
</span>
8*1024*1024*8=67`108`864 бит
в мегабайте 1024 килобайт
в килобайте 1024 байт
в байте 8 бит
var
s : integer;
begin
for var i := 0 to 1000 do if i mod 2 > 0 then s += i;
writeln('s=', s);
end.
var
n : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do write(i, ' ');
end.
Const nx=20;mx=20;var i,j,n,m:integer; D:array[1..mx,1..nx] of integer;p:double;
begin
write('Введите размер массива m и n');Readln(m,n);p:=1;
for i:=1 to m do begin
for j:=1 to n do begin
Readln(D[i,j]);end;end;writeln;
for i:=1 to m do begin
for j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to m do begin
for j:=1 to n do begin
if i = n-j+1 then begin write(D[i,j]:4); p:= p * D[i,j];end
else write(' ':4);end;writeln;end;writeln;
for i:=1 to m do begin
for j:=1 to n do begin if i =j then begin write(D[i,j]:4); p:= p * D[i,j];end
else write(' ':4);end;writeln;end;writeln;
write('произведение диагональных элементов массива =',p);<span>end.</span>
1 - б
2 - б
3 - б
4 - а
5 - нет ответа (по проводам и передаётся инфа а на остальном точно сохраняется)
6 - а
7 - а или г
8 - б
9 - а или в
10 - в
