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

234

443

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

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

StilesStilinsky

Информатика

4,6(82 оценок)

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 чисел (по крайней мере так посчитала эта сама программа).

popygai2

Информатика

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

Program vav; var a: array[1..20,1..20] of integer; n,i,j: integer; begin randomize; read(n); for i: =1 to n do for j: =1 to n do a[i,j]: =(random(21)-10)*2; for i: =1 to n do begin for j: =1 to n do write(a[i,j],' '); writeln; end; end.