11+1*3-4=10
-8+2*3+2=0
исходное положение (10;0)
Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
<span>end.</span>
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
Обьем внутренней - 1тб
объем внешней- 4тб
Ты выберешь флешку потому что невозможно использовать внутреннюю память для этого. Диск же может подойти, но у него слишком маленькая память
var i,a,n,k:longint;
var mas:array[1..100000000] of longint;
begin
k:=0;
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите число A');
readln(a);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]>a then k:=k+1; end;
writeln(k,' элементов массива больше числа',' ', a);
end.