В БОГА Я НЕ ВЕРЮ, НО ГОТОВА МОЛИТЬСЯ . Надо построить график. Прикрепила фото, ЗАРАНЕЕ

254

295

Посмотреть ответы 2

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

SobolVitalik

Информатика

4,4(83 оценок)

А где фото

жека569

Информатика

4,5(80 оценок)

Var n : longint; function check(a : longint) : boolean; var m : array[0..9] of byte; i : byte; begin for i: =0 to 9 do m[i]: =0; while a> 0 do begin inc(m[a mod 10]); a: =a div 10; end; check: =false; for i: =0 to 9 do if m[i]> =4 then check: =true; end; begin n: =0; while (n< 1000000) or (n> 9999999) do readln(n); if check(n) then writeln('yes') else writeln('no'); end.