Предмет: Информатика,
автор: момон1
Через Паскаль!!!!срочно нужно (то что красным делать)
Приложения:
Ответы
Автор ответа:
1
Готово! Сделал с оформлением и пояснением.
Приложения:
shoshin142:
Вот код (на всякий случай):
Program Digits;
var
a, n, d: integer;
Begin
//Вводим число
write('Введите число: ');
readln(a);
n := 0; //Счётчик чётных цифр
//Проходим по каждой цифре числа
while (a > 0) do
begin
//Берём цифру и проверяем её делимость на 2
d := a mod 10;
if (d mod 2 = 0) then
n := n + 1;
a := a div 10; //Убираем проверенную цифру
end;
//Выводим ответ
write('На 2 делится ', n, ' цифр(-а).');
End.
var
a, n, d: integer;
Begin
//Вводим число
write('Введите число: ');
readln(a);
n := 0; //Счётчик чётных цифр
//Проходим по каждой цифре числа
while (a > 0) do
begin
//Берём цифру и проверяем её делимость на 2
d := a mod 10;
if (d mod 2 = 0) then
n := n + 1;
a := a div 10; //Убираем проверенную цифру
end;
//Выводим ответ
write('На 2 делится ', n, ' цифр(-а).');
End.
Похожие вопросы
Предмет: Українська література,
автор: vasa4015373838
Предмет: Математика,
автор: ubiqsmart
Предмет: Английский язык,
автор: mercurry
Предмет: Математика,
автор: kristasmail
Предмет: Математика,
автор: Залина111111111