Найдите количество чётных цифр заданного числа по программе pascal.
5-9 класс
|
var
k:integer;
a,n:longint;
begin
write ('A =');readln(a);
n:=a;
while n div 10 <> 0 do begin
n:=a;
if odd(n mod 10)=false then k:=k+1;
a:=a div 10;
end;
writeln (k);
readln;
end.
Другие вопросы из категории
#include<iosream>
#include<string>
using namespace std;
main()
{
string s="строка";
s.erase(5,2);
s.insert(4,"ô");
cout<<s;
getch();
}
Читайте также
1.вычислите два числа-сумма первой,третьей и пятой цифр и сумма второй и четвертой цифр заданного числа.
2.полученные два числа записываются друг за другом в порядке неубывания
пример.исходное число:15177.поразрядные суммы:9,12.результат:912
определите сколько из приведенных чисел могут получиться в результате работы автомата
50 5150 150 1520 2015 1925 1015 215 2519
в ответ запишите только количество чисел
1. Вычисляются два числа-сумма первой, третьей и пятой цифр и сумма второй четвертой цифр заданного числа.
2. Полученные два числа записываются друг за другом в порядке неубывания (без разделителей)
Определите, сколько из приведенных ниже чисел могут получиться в результате работы автомата.
40 1030 130 1320 2019 1920 2013 213 3010
Помогите, пожалуйста.
1. Вычесляются два числа - сумма первой, третьей и пятой цифр и сумма второй и четвертой цифр заданного числа.
2. Полученные два числа записываются друг за другом в порядке неубывания (безразделителей) .
Определите, сколько из приведенных ниже чисел могут получиться в результате работы автомата. 40 1030 130 1320 2019 1920 2013 213 3010
1. Вычисляются два числа - сумма первой и второй цифр и сумма третьей и четвертой цифр заданного числа.
2. Полученные два числа записываютс друг за другом в порядке неубывания (без разделителей)
Определите, сколько из приведенных ниже чиел может получиться в результате работы автомата
1915 20 101 1213 1312 312 1519 112 1212