QBASIC
cls
INPUT " shIrIna ": a
INPUT "doing. ": b
c = a*b
PRINT "S": c
end
Uses crt;
var a,pr,n:integer;
begin
pr:=1;
write('Введите число: '); readln(a);
while a>0 do
begin
n:=a mod 10;
if (n mod 2=0) and (n<>0) then pr:=pr*n;
a:=a div 10;
end;
writeln('Произведение четных цифр числа: ',pr);
<span>end.</span>
var a: array[1..10] of integer;
i,imin,min: integer;
begin
randomize;
write('массив: ');
for i:=1 to 10 do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
min:=a[1];
imin:=1;
for i:=2 to 10 do
if(a[i]<min) then begin
min:=a[i];
imin:=i;
end;
write('наименьший элемент: a[',imin,']=',min);
end.
Начальное значение переменной y не указано, поэтому будем считать, что оно равно 0. Тогда:
0+2=2
2+3=5
5+4=9
9+5=14
14+6=20
Ответ: у=20
Складывать так же, но если будет 2, то 1 добавляется на следующий разряд.
ну например 100101+10101
сначало складываем 2 единицы справа, будет 2. 2 не пишем, а пишем 1 в следующем разряде. 101010
Дальше решения из задания
100101+101=101010
101101+111=110100
110011+1101=1000000
100100-1010=11010
110101-110=101111
10101-101=10000