tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны два числа а и в. подсчитайте
Даны два числа а и в. подсчитайте количество натуральных чисел на отрезке от а до в, сумма цифр которых четна. нужна программа в паскале
bohdan4ever
3 25.05.2019 10:50
0
Ответы
kise1970
21.06.2020 12:58
Var b, a, d1, d2, i, j: integer;
c: string;
begin
readln(a, b);
for i := a to b do
begin
d1 := 0;
c := inttostr(i);
for j := 1 to length(c) do
d1 := d1 + strtoint(c[j]);
if (d1 mod 2 = 0) then inc(d2);
end;
writeln(d2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
11111Ангелина11111
03.09.2019 00:30
10)если количество информации равно 5 бит, чему равно число возможных событий? а) 4 б) 16 в) 8 г) 32 11)перевести в десятичную систему счисления число bf(в низу 16) а)...
Алахахбар228
03.09.2019 00:30
Синформатикой работа с pascal . посчитать количество четных чисел в промежутке от 1 до n...
qerenfilibrahi
03.09.2019 00:30
1) какова роль информации в современном обществе и его структурах: , социальной, культурной, образовательной? 2) назовите наказание за правонарушения в сфере защиты информации....
Aluniy
10.04.2020 11:25
Как осуществляется передача данных в интернете?...
Ник13743803
06.12.2021 16:53
Дано множество А,B,C,D которое вводится с клавиатуры.Вывести четные элементы множества Z=A*B+C-D;...
Doctor555
06.12.2021 16:53
Создать словосочетания кубикам и писать в тетрать можно любое слова что бы кубик писали во так есть же но я просто писал...
dontsovaelizav
06.12.2021 16:56
Найдите дополнительный код для представления числа – 57 в одном байте компьютерной памяти....
pruzhinskiy01
06.12.2021 16:56
Напишите наименьшее целое число х для которого истинно высказывание Не(х 2) и Не (х 10)...
niuaki
06.12.2021 16:56
Https://steamcommunity.com/tradeoffer/new/?partner=1205918658&token=3XUEv_59 Дайте скин в кске вообще не важно какой./...
steelersumyp06wkp
14.12.2020 10:34
3. Суреттердің, тірек сөздердің көмегімен Астанадағы Қала күні мерекесінің тойлануы туралы досыңызға әңгімелеңіз. улт аспаптар оркестріұлттық өнеререкелік концертенер...
Популярные вопросы
Из двух городов расстояние между которыми168км навстречу друг другу...
3
Запишите число в виде суммы разрядных слагаемых 6003807...
2
Проверочное слово к слову возились если что о неправереемая...
2
Что бы заполнить бочку вместимостью 96 л, нужно принести 12 ведер...
3
♥совсем небольшой рассказик напиши рассказ на языке о том, что случилось...
1
Периметр прямоугольника равен 38 см. его длина в одну целую 5/7 раза...
1
Водном мешке в 3 раза больше муки чем во 2 из 1 достали 17 кг а из...
1
Решите ! поезд за 3,5 часа км пути.найдите его среднюю скорость.какой...
2
Перед словами с безударным гласным в корне в скобках пиши проверочное...
3
3см 6 мм перевести в миллиметры заранее...
3
c: string;
begin
readln(a, b);
for i := a to b do
begin
d1 := 0;
c := inttostr(i);
for j := 1 to length(c) do
d1 := d1 + strtoint(c[j]);
if (d1 mod 2 = 0) then inc(d2);
end;
writeln(d2);
end.