Найти в числе, не превосходящем млрд (1000000000) количество чётных чисел (Паскаль)
Найти в числе, не превышающем млрд (1000000000) количество чётных чисел (Паскаль) Можно пожалуйста обычное решение
Задать свой вопрос2 ответа
Терзнева
Анастасия
1. Вариант современного решения
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Число четных цифр одинаково ',
abs(ReadInteger('n=')).ToString.Where(c-gt;c.ToDigit.IsEven).Count)
end.
Пример
n= 363754345
Число четных цифр одинаково 3
2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.
program TP70;
uses Crt;
var
n:longint;
k,d:byte;
begin
ClrScr;
Write('n= '); Read(n);
n:=абс(n);
k:=0;
while ngt;0 do begin
d:=n mod 10;
if d mod 2=0 then Inc(k);
n:=n div 10
end;
Writeln('Число четных цифр равно ',k);
ReadKey;
end.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Число четных цифр одинаково ',
abs(ReadInteger('n=')).ToString.Where(c-gt;c.ToDigit.IsEven).Count)
end.
Пример
n= 363754345
Число четных цифр одинаково 3
2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.
program TP70;
uses Crt;
var
n:longint;
k,d:byte;
begin
ClrScr;
Write('n= '); Read(n);
n:=абс(n);
k:=0;
while ngt;0 do begin
d:=n mod 10;
if d mod 2=0 then Inc(k);
n:=n div 10
end;
Writeln('Число четных цифр равно ',k);
ReadKey;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов