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

сколько существует четырехзначных чисел, в записи которых имеются две цифры семь

  1. Ответ
    Ответ дан Sky09
    var k,i,a,b,c,d,m:integer;
    begin
    for i:=1000 to 9999 do
      begin
      m:=0;
      a:=i div 1000; if a=7 then m:=m+1;
      b:=i div 100 mod 10; if b=7 then m:=m+1;
      c:=i div 10 mod 10; if c=7 then m:=m+1;
      d:=i mod 10;  if d=7 then m:=m+1;
      if m=2  then k:=k+1;
      end;
    writeln(k);
    end.
    ---
    Это если надо программу написать.
    Если просто число нужно, то 459 чисел (по крайней мере так посчитала эта сама программа).
Самые новые вопросы