• Дано натуральное число. Определить:
    б) сколько раз в нем встречается цифра, равная последней;
    в) количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать;
    г) сумму его цифр, больших пяти;
    д) произведение его цифр, больших семи;
    е) сколько раз в нем встречаются цифры "0" и "5".
    В Паскале, не используя массивы

Ответы 3

  • последнее Program p1;var a,b,p: integer;begin read(a);p:=0;while a<>0 do beginb:=a mod 10; if (b = 5) or (b=0) then p:=p+1;a:=a div 10;end;write(p);end.
  • Спасибо! :)
    • Автор:

      amosv4ff
    • 6 лет назад
    • 0
  • под а Program p1;var a,b , b1,a1,k: integer;begin read(a);k:=1;b:=a mod 10;a1:=a div 10;while a1<>0 do beginb1:=a1 mod 10; if b1=b then k:=k+1;a1:=a1 div 10;end;write(k);end.
    • Автор:

      moss
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years