Если тебе нужно перевести число(целое) из десятичной системы счисления в любую другую,то ты делишь данное число на основание системы счисления,в которую тебе нужно перевести. В данном случае делили десятичное число(целое) 754 на 2(т.к. двоичная сис-ма счисления) на 8 и на 16.
uses crt; var a,i,j,n:integer; begin writeln('ВВедите кол. конфет в (кг)'); read(a); n:=0; if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end; if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end; if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end; writeln('Общее количество коробок = ',n); end.
2 задача uses crt; var a,i,j,n:integer; begin writeln('Введите кол. суток'); read(a); writeln('Количество часов в ',a,' сутках = ',a*24); writeln('Количество минут в ',a,' сутках = ',a*24*60); writeln('Количество секунд в ',a,' сутках = ',a*24*60*60); end.
Const N = 39; Var X:array[1..N] of integer; i,j,k:integer;
Begin Randomize; ClrScr; k:=0; WriteLn('Исходный массив: '); For i:= 1 to N do Begin X[i]:=random(53)-15; if X[i]<30 then Begin TextColor(12); k:=k+1; End else TextColor(7); Write(X[i],' '); End; WriteLn; WriteLn; TextColor(7); WriteLn('Числа, меня тридцати: ',k); WriteLn; WriteLn('Упорядоченный массив: '); For i:= 1 to N do For j:= 1 to N-1 do if X[j]>X[j+1] then Begin k:=X[j+1]; X[j+1]:=X[j]; X[j]:=k; End; k:=0; For i:= 1 to N do Begin Write(X[i],' '); j:=X[i]; While j div 10 <> 0 do j:=j div 10; if (j = 2)or(j = -2) then k:=k+1; End; WriteLn; WriteLn; WriteLn('Числа, начинающиеся с двойки: ',k); ReadLn; End.
