Не Информатика, но всё же. При параллельном подключении резисторов напряжения на всех равны, Вариант 1.
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
Var k,i,m,j:integer;
begin
k:=0;
for i:=10000 to 99999 do
begin
m:=0;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then m:=m+1;
if m=0 then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 8363
1) достать муку
2) добавить воду, соль, яйца
3) перемешать
4) налить в сковороду
5) поставить на газ
6) включить газ
7) ждать 5 мин
8) выключить газ
9) положить блин на тарелку
Если числа даны в шестнадцатиричной с.с., тогда:
А116+11012=1В128 (16)
1В128=330450 (8)