Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.
Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.
Ответ оставил Гость
Procedure ABC(N:integer);
Var
C:integer;
Begin
C:=0;
While N>0 do
Begin
C:=C*10+N mod 10;
N:=N div 10
End;
While C>0 do
Begin
WriteLn(C mod 10);
C:=C div 10
End
End;
Procedure ABC(N:integer);
Begin
if N>0 then
Begin
ABC(N div 10);
WriteLn(N mod 10);
End
End;
Var N:integer;
Begin
Write(N = );ReadLn(N);
ABC(N);
End.
Источник: napyaterku.com
Напишите программу, которая выводит на экран все цифры числа начиная с первой. (на Паскале)
Найди верный ответ на вопрос ✅ «Напишите программу, которая выводит на экран все цифры числа начиная с первой. (на Паскале) . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
7.5 Все вместе. «Поколение Python»: курс для начинающих. Курс Stepik
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Напишите программу, которая выводит на экран все цифры числа начиная с первой. (на Паскале)
Источник: urokam.net
Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры — Pascal ABC
помогите пожалуйста. нужно написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой. Пример: Введите натуральное число 1234 1 2 3 4 сама программа без процедуры :
program ch0 ; uses crt; var k, z, i : integer ; begin writeln (‘Введите число’); read (k); z:=0; while k>0 do begin z:=z*10; z:=z + (k mod 10); k:=k div 10; end; while z>0 do begin i:=z mod 10; z:=z div 10; writeln (i, ‘ ‘); end; end.
когда я делаю процедуру в одном случае у меня выводит 0, а в другом три отступа (как если три раза нажать на энтр) 1)
program ch0 ; uses crt; var k, z, i : integer ; procedure cas ( i: integer); var k, z : integer; begin z:=0; while k>0 do begin z:=z*10; z:=z + (k mod 10); k:=k div 10; end; while z>0 do begin i:=z mod 10; z:=z div 10; writeln (i, ‘ ‘); end; end; begin writeln (‘Введите число’); read (k); cas (i); writeln (i, ‘ ‘); end.
program ch0 ; uses crt; var k, z, i : integer ; procedure cas ( i: integer); var k, z : integer; begin z:=0; while k>0 do begin z:=z*10; z:=z + (k mod 10); k:=k div 10; end; while z > 0 do begin i:=z mod 10; z:=z div 10; writeln (‘ ‘); end; end; begin writeln (‘Введите число’); read (i); cas (i); writeln (‘ ‘); end.
Код к задаче: «Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры»
Листинг программы
Обработка цифр числа | Python с Нуля | Урок 12
Procedure ShowCif(A : Integer); Begin If A>0 then Begin ShowCif(A div 10); Writeln(A mod 10); end; end; Begin ShowCif(12345); end.
Источник: studassistent.ru