По перше,ти не в 5, а десь у 3.По друге,відповідь: 3)
1) 01000101011110000110001101100101<span>01101100
2) </span>0100000101100011011000110110010101110011<span>01110011
3) </span>010101110110100101101110011001000110111101110111<span>01110011
В двоичной СС =)</span>
Ответ:
Объяснение:
S=30, S равно сумме чётных чисел от 2 до 10, 2+4+6+8+10
Работает при условии, что А - не отрицательное число:
Var A:integer;
Begin
Write('A = ');
Read(A);
While A >0 do
Begin
A:=A-3;
End;
if A=0 then Write('А кратно трём')
else Write('А не кратно трём')
End.
Var
A:integer;
Begin
Write('A = ');
Read(A);
While A >3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от деления А на 3: ',A);
End.