1. Информатика
  2. С клавиатуры вводится целое

С клавиатуры вводится целое неотрицательные число определить и вывести количество чётных и нечётных цифр числа Паскаль ​

alenalavkav7 alenalavkav7    3   17.05.2021 13:59    2

Ответы
alyonasmirnova5 alyonasmirnova5  17.06.2021 02:02

program ;

uses crt;

var

i,a,s1,s2:integer;

begin

read(a);

for i:= 1 to a do

if i mod 2 = 0 then s2:=s2+i else s1:=s1=i;

writeln(s1,s2);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
кирилляz кирилляz  22.08.2019 06:00
Где применяется компьютерная графика ?...
ДуанбекМариям ДуанбекМариям  14.05.2021 14:36
НУЖНО РЕШИТЬ В ПАСКАЛЕ С Case of Условный оператор. Даны три числа. Найти произведение двух максимальных из них. Оператор выбора. С клавиатуры введены три числа. Найти...
ErikMC ErikMC  14.05.2021 14:36
Имеется текст, объем которого 40 килобайт. На каждой странице 40 строк по 64 символа. Текст закодирован в кодировке Windows (8 бит на 1 символ). Определить количество...
kholmatova002 kholmatova002  05.06.2019 13:50
Хотя бы одну ! решить 1-3. 1 у водолея имеется две емкости а (7 л) и в (17 л). необходимо отмерить 1 литр воды, чтобы он находился в 1) в емкости а 2) в емкости в 2 у...
leron9999 leron9999  05.06.2019 13:50
1)дан одномерный массив а[n], - целых чисел. заменить все большие 7 члены массива числом 7. найти количество таких членов. 2) задан массив из 10 элементов, найти произведение...
FoxyDi FoxyDi  29.08.2019 06:30
На паскале надо составить программу, которая будет вычислять значение y в зависимости от значения х для y=4x-x2+1. формат вывода результата «при х = y = »...
dina15777 dina15777  29.08.2019 06:30
На паскале надо сделать : даны два ненулевых числа. найти их среднее арифметическое. формат вывода результата «среднее арифметическое числа и числа равно »...
Slavkamyroslavka Slavkamyroslavka  06.05.2021 10:17
Задача 1 У масиві, що містить позитивні і негативні цілі числа, обчислити суму парних позитивних елементів. {10, -5. 25. 68. -91. 34. 25. 15.-87. 92. 86. 54. -85. 91....
Morij007 Morij007  11.04.2021 15:57
Написать рафт чем опасна экстремальная жара? ​...
LillyFox LillyFox  11.04.2021 15:57
решить задачи по физике. Они на термодинамику....

Популярные вопросы