Цитата:
Сообщение от Zoom
Задание 1
Дано натуральное число n. Удалить из записи числа все нули и единицы. Подсчитать количество оставшихся цифр в изображении числа.
|
Код:
VAR
N,N1:LongInt;
b:BYTE;
code:WORD;
S:STRING;
i,j:INTEGER;
BEGIN
Write('(N must be < 2147483648); N= ');
ReadLn(N);
STR(N,S);
j:=0;
N1:=0;
For i:=1 to Length(S) do
If (S[i]<>'0') and (S[i]<>'1') then
begin
Inc(j);
VAL(S[i],b,code);
N1:=N1*10+b;
end;
WriteLn(N1);
WriteLn('Number of figures is ',j);
ReadLn;
END.
Цитата:
Задание 2
Дано целое число. Найти произведение всех его цифр.
|
Код:
VAR
N,Product:LongInt;
BEGIN
Write('(N must be < 2147483648); N= ');
ReadLn(N);
Product:=1;
Repeat
Product:=Product*(N mod 10);
N:=N div 10;
Until N=0;
WriteLn('Product is ',Product);
ReadLn;
END.
Цитата:
Задание 3
Идет N-ая секунда суток. Определить полное количество часов и минут в заданный момент времени, считая от начала суток.
|
Код:
VAR
N:LongInt;
BEGIN
Write('(N must be < 86400); N= ');
ReadLn(N);
WriteLn('Hours= ',N div 3600);
N:=N mod 3600;
WriteLn('Minutes= ',N div 60);
N:=N mod 60;
WriteLn('Seconds= ',N);
ReadLn;
END.