Задача 1. Вывод натурального числа

Ввести натуральное число, не превосходящее 1000000, и вывести его в де­сятичном, двоичном, 8-ричном и 16-ричном виде.

{ Решение Задачи 1 на языке PASCAL } VAR N,Divider : LongInt; Shift,Num : Byte;

BEGIN

Write(#10,#13/Введите число '); Read(N); WriteLn^ffimo в десятичном виде : ',N); Write^ffimo в двоичном виде  : '); FOR Shift:=19 DOWNTO 0 DO

Write(N AND(LongInt(1) ShL Shift)ShR Shift); WriteLn(#10,#13/Числo в 8-ричном виде  : ',N AND $C0000 ShR 1В,

N AND $38000 ShR 15,N AND $07000 ShR 12,N AND $00E00 ShR 9,

N AND $001C0 ShR б, N AND $00038 ShR 3,N AND $00007); Write^ffimo в 16-ричном виде : '); Divider:=$F0000; FOR Shift:=4 DOWNTO 0 DO BEGIN

Num:=N AND Divider ShR (Shift*4);

CASE Num OF 0..9 : Write(Num);

ELSE Write(Chr(Ord('A,)+Num-10));

END;

Divider:=Divider ShR 4;

END; END.

/* Решение Задачи 1 на языке C */

#include<stdio.h>

void main(void) { long n; int shift;

printf("\nВведите число "); scanf("%li",&n);

printf("\nЧислo в десятичном виде : %ld",n);

printf("\nЧислo в двоичном виде : ");

for(shift=19;shift>=0;shift--)printf("%ld",(n&(1L«shift))»shift); printf("\nЧислo в 8-ричном виде : %lo",n);

printf("\nЧислo в Іб-ричном виде : %lX",n); } C Решение Задачи 1 на языке FORTRAN

$STORAGE:4 $DEBUG

INTEGER*1 SHIFT PRINT *,'Введите число '

READ*,N

PRINT'(1X,A,I7)','Числo в десятичном виде : ',N 0PRINT'(1X,A,20I1)','Числo в двоичном виде : 1(ISHL(IAND(N,INT4(2)**SHIFT),-SHIFT),SHIFT=19,0,-1) 0PRINT'(1X,A,7I1)','Числo в 8-ричном виде : 1ISHL(IAND(N,В#7000000),-1В),ISHL(IAND(N,В#0700000),-15), 2ISHl(iANd(n,8#0070000),-12),ISHl(iANd(n,8#0007000),-9), 3ISHl(iANd(n,8#0000700),-6),ISHL(IAND(N,8#0000070),-3), 4IAND(N,8#0000007)

PRINT'(1X,A,Z5)','Числo в Іб-ричном виде : ',N

END