Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.
Входные данные
Входная строка содержит неотрицательное число N .
Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.
Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале. — Правильный ответ на вопрос найдете ниже
16.02.2020 · 2
Ответ: Спасибо большое.
Ответ: Без рекурсии:Procedure ABC(N:integer);VarC:integer;BeginC:=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 EndEnd;VarN:integer;BeginWrite(‘N = ‘);ReadLn(N);ABC(N);End.С рекурсией:Procedure ABC(N:integer);Beginif N>0 then Begin ABC(N div 10); WriteLn(N mod 10); EndEnd;Var N:integer;BeginWrite(‘N = ‘);ReadLn(N);ABC(N);End.
Напишите программу, которая считывает число x, а затем пишет его, поставив перед ним х пробелов(PascalABC)
Помогите пожалуйста нужно срочно!!! — Правильный ответ на вопрос найдете ниже
27.01.2020 · 1
Ответ: // PascalABC.NET 3.3, сборка 1549 от 17.10.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger; Writeln(n*’ ‘,n)end.Пример7 7
Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 4 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 4 и оканчивающихся на 8. — Правильный ответ на вопрос найдете ниже
12.12.2019 · 1
Ответ: begin var count := 0; var sum := 0; while True do begin var a := ReadInteger; Assert(a <= 300); count += 1; Assert(count <= 100); if a = 0 then break; if (a mod 4 = 0) and (a mod 10 = 8) then sum += a; end; Writeln(‘Сумма чисел по предикату равна ‘, sum);end.
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет среднее арифметическое всех элементов этого массива, которые меньше 50, и среднее арифметическое всех остальных элементов. — Правильный ответ на вопрос найдете ниже