profile
Опубликовано 5 лет назад по предмету Информатика от DarkSummer

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

  1. Ответ
    Ответ дан ВеликийБудда
    под а 
    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.
    1. Ответ
      Ответ дан ВеликийБудда
      последнее 
      Program p1;
      var a,b,p: integer;
      begin 
      read(a);
      p:=0;
      while a<>0 do begin
      b:=a mod 10; 
      if (b = 5) or (b=0) then 
      p:=p+1;
      a:=a div 10;
      end;
      write(p);
      end.
    2. Ответ
      Ответ дан DarkSummer
      Спасибо! :)