var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.
1. 123 в четверичной: 1*4^2+2*4+3= 16+4+3=23
2. 322 в шестиричной: 3*6^2+2*6^1+2= 3*36+12+2=122
3. 99 в шестнадцатеричной: 9*16+9= 144+9=153
4. FAC в шестнадцатеричной: 15*16^2+10*16+12= 15*256+160+12=3840+172=4012
5. 111 в двоичной: 4+2+1=7
6. 1001101 в двоичной: 1+4+8+64=77
7.115 в восьмеричной: 64+8+5=77
8. 4С в шестнадцатеричной: 4*16+13=77
9. 34 в семиричной: 3*7+4=25
10. 710 в восьмеричной: 7*64+8=448+8=456
Объяснение:
Вот тебе небольшие лайфхаки для перевода из двоичной в восьмеричную/шестнадцатеричную:
7. 1001101 в восьмеричной: разбиваем на триады начиная справа:
101 = 5 001=1 1=>001=1 получается: 115
8. 1001101 в шестнадцатеричной: также разбиваем, но уже на четыреады:
1101=13=>C 100=4 получается: 4С
