
Вопрос задан 02.08.2018 в 12:15.
Предмет Информатика.
Спрашивает Анисимов Пётр.
Дано натуральное число. Найти : Сумму четных цифр; Минимальную цифру;Кол-во цифр, кратных 3ем;
Разность максимальной и минимальной цифр; Максимальную цифру среди четных. Тема циклов, 9 класс, все должно быть просто, начинается на Var n: Longint; a,b,...: Integer; Begin readln(n)While .....Задач может быть несколько, по 1 на вопрос, либо же можно обьеденить все в одну.Так же запишите после задачи все значения букв, которые используете, n - натуральное число.

Ответы на вопрос

Отвечает Ханская Сымбат.
Var
n,p: Longint;
i,k,x,sum,min,max,max2,kr3: Integer;
Begin
readln(n);
p:=n;
while p>0 do //находим число цифр в числе
begin
p:=p div 10;
k:=k+1;
end;
p:=n;
min:=9;
for i:=1 to k do
begin
x:=p mod 10;
if x mod 2=0 then
begin
sum:=sum+x;
if x>max2 then max2:=x;
end;
if x<min then min:=x;
if x>max then max:=x;
if (x mod 3=0) and (x>0) then kr3:=kr3+1;
p:=p div 10;
end;
writeln('Сумма четных цифр: ',sum);
writeln('Минимальная цифра: ',min);
writeln('Количество кратных трем: ',kr3);
writeln('Разность максимальной и минимальной: ',max-min);
writeln('Максимальная четная цифра: ',max2);
end.
p - вспомогательная переменная. В нее заносим значение n
i - счетчик цикла
k - количество цифр в числе
x - текущая цифра числа
sum - сумма четных
min - минимальная цифра
max - максимальная цифра
max2 - максимальная четная цифра
kr3 - количество цифр, кратных 3:
n,p: Longint;
i,k,x,sum,min,max,max2,kr3: Integer;
Begin
readln(n);
p:=n;
while p>0 do //находим число цифр в числе
begin
p:=p div 10;
k:=k+1;
end;
p:=n;
min:=9;
for i:=1 to k do
begin
x:=p mod 10;
if x mod 2=0 then
begin
sum:=sum+x;
if x>max2 then max2:=x;
end;
if x<min then min:=x;
if x>max then max:=x;
if (x mod 3=0) and (x>0) then kr3:=kr3+1;
p:=p div 10;
end;
writeln('Сумма четных цифр: ',sum);
writeln('Минимальная цифра: ',min);
writeln('Количество кратных трем: ',kr3);
writeln('Разность максимальной и минимальной: ',max-min);
writeln('Максимальная четная цифра: ',max2);
end.
p - вспомогательная переменная. В нее заносим значение n
i - счетчик цикла
k - количество цифр в числе
x - текущая цифра числа
sum - сумма четных
min - минимальная цифра
max - максимальная цифра
max2 - максимальная четная цифра
kr3 - количество цифр, кратных 3:



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Finding Various Properties of a Natural Number
To find various properties of a given natural number, we can use a simple algorithm to iterate through its digits and perform the required calculations. Let's address each part of the question one by one.
# Sum of Even Digits
To find the sum of even digits in the given natural number, we can use the following algorithm: 1. Initialize a variable `sumEven` to 0. 2. Iterate through each digit of the number. 3. If the digit is even, add it to `sumEven`. 4. Finally, `sumEven` will contain the sum of even digits in the number.For example, if the given natural number is 123456, the sum of even digits would be 2 + 4 + 6 = 12.
# Minimum Digit
To find the minimum digit in the given natural number, we can use the

Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili