Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=S+(m mod 10);
m:=m div 10;
End;
WriteLn('Сумма цифр равна: ',S);
End.
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=m mod 10;
m:=m div 10;
End;
WriteLn('Первая цифра числа: ',S);
End.
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
Составление ДРОК,УЗГ и.т.д в условиях повышенной дезрентабельности
Linux
...............
Линикс
Кодировка UNICODE 16-битная, отсюда i=16
станицы, строки и символы _ это K=5*36*75
формула количества информации: I=K*i подставляем и решаем:
I = 5*36*75*16 = 216000 бит