Предмет: Информатика,
автор: mississurguchep48qhd
Цикл WHILE
Написать программу которая для любого числа N выводит последовательно на экран все его цифры начиная с конца(разряда единиц)
(!Даю 20 баллов!)
Ответы
Автор ответа:
0
var S:string;
A,l,i:integer;
begin
Write('Chislo='); Readln(a);
Str(a,S);
l:=length(S);
for i:=l downto 1 do write(S[i],' ');
readln;
end.
A,l,i:integer;
begin
Write('Chislo='); Readln(a);
Str(a,S);
l:=length(S);
for i:=l downto 1 do write(S[i],' ');
readln;
end.
Похожие вопросы
Предмет: ОБЖ,
автор: vadimmizev
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: sava67615
Предмет: Алгебра,
автор: kamfi
Предмет: Математика,
автор: ПОМОГИТЕ2311654