Программирование.
Напишите программу в Turbo Pascal.

на египетскую - иероглифы.

100*1000000/8=12500000 байт в секунду

7 - диск, винт, сиди

9 пробел

10 импорт

11 окно

12ввод

15 стэк ?

16граф

18свич

20тэг

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.