Расписать целое восьмеричное число 4153 в развёрнутой форме.

298

378

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

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

Miranny

Информатика

4,7(39 оценок)

var a: array[1..10,1..10]of integer; i,j,m,k,s: integer; beginfor i: =1 to 10 do for j: =1 to 10 do readln(a[i,j]); for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;

for i: =1 to 10 dofor j: =1 to 10 doif (a[i,j]< > 0) and (i mod 2=0) then s: =s+a[i,j]; writeln(s); readln(m,k); s: =0; for i: =1 to 10 dofor j: =1 to 10 doif (a[i,j]> =m) and (a[i,j]< =k) then s: =s+1; writeln(s); end.