profile
Размещено 5 лет назад по предмету Информатика от KnyazIngar

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

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    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:
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.