Вопрос по информатике:
Pascal
Дано натуральне число n.
a) Скільки цифр в числі n?
b) Скільки парних цифр в числі n
Пожаловаться
- 14.01.2018 15:01
- Информатика
- remove_red_eye 18639
- thumb_up 27
Ответы и объяснения 1
Var n:String;
var count:Integer;
var a:array of char;
begin
WriteLn('Введите число n:');
Read(n);
a:= n.ToCharArray();
for var i:= 0 to a.Length-1 do
if strtoint(a[i]) mod 2 = 0 then
count+= 1;
WriteLn('Кол-во цифр в числе: '+a.Length);
WriteLn('Кол-во чётных цифр в числе: '+count);
end.
var count:Integer;
var a:array of char;
begin
WriteLn('Введите число n:');
Read(n);
a:= n.ToCharArray();
for var i:= 0 to a.Length-1 do
if strtoint(a[i]) mod 2 = 0 then
count+= 1;
WriteLn('Кол-во цифр в числе: '+a.Length);
WriteLn('Кол-во чётных цифр в числе: '+count);
end.
Пожаловаться
- 16.01.2018 00:44
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы