Урок 24
Решение практических задач
Теоретическая часть
Задача 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. Напишите программу которая выведет на экран цифры числа кратные пяти или сообщение "В числе таких цифр нет".
Электронная рабочая тетрадь
Задание 1. Выражения (найти пару)
Задание 2. Логические и арифметические операции (хронологическая линейка)