Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с 1-ой. Пример 12341234
Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с 1-ой. Пример 12341
2
3
4
Гость
Ответ(ы) на вопрос:
Гостьprocedure print(a: integer);
var
i: integer;
s: string;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;
Не нашли ответ?
Похожие вопросы