Регистрация
Dangerrr
04.06.2020 15:52
Информатика
Есть ответ 👍

Үлгі бойынша кестеге ақпараттарды енгізіп форматтаңдар​

255
434
Посмотреть ответы 1

Ответы на вопрос:

Cammelia
Cammelia
4,5(89 оценок)
Var   a: array of byte; //char?   b, d: integer; begin   readln(b);   setlength(a, length(inttostr(;       for d : = 0 to length(a) - 1 do   begin     a[d] : = b mod 10;     b : = b div 10;   end;       for d : = 0 to (length(a) - 1) do     write(a[d], ' '); end. 

Популярно: Информатика