Var
s:string;
i:integer;
begin
Write('Введите натуральное число: '); Readln(s);
i:=Length(s)-2;
while i>1 do begin Insert(',',s,i); i:=i-3 end;
Writeln(s)
end.
Пример
Введите натуральное число: 12345678
12,345,678
Да на сколько я помню вроде можно
1) Жёсткий диск
2)Процессор
3)оперативная память
Неполное количество, там не указано время!
Неверный ответ 1102, так как двочная система состоит из чисел 1 и 0