Задача 1. Дано натуральное число n. Выведите цифры числа по одной в строке. Определить, сколько цифр в числе.
program z3;
var k,n,z: integer;
begin
write('Введите n = '); read(n);
k := 0;
while n > 0 do
begin
z := n mod 10; //Текущая цифра
writeln(z);
n := n div 10; //Уменьшение числа в 10 раз
k := k + 1; //Подсчет кол-ва цифр
end;
writeln ('в числе ', k, ' цифр (-а/-ы)) ');
end.
Скопируйте программу в PascalABC.net. Отправьте её на исполнение.
Задача 1. Дано натуральное число n. Определите, каких цифр в числе больше - четных или нечетных.
Задача 2. Дано натуральное число n. Напишите программу которая выведет на экран цифры числа кратные пяти или сообщение "В числе таких цифр нет".