Заполните таблицу ! Интернациональные символы -?
Управляющие коды -?
Национальные символы -?
Варианты ответов - 128-255,0-255,0-31,32-127

170

226

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

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

3344227p06s57

Информатика

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

Uses crt; var a: array[1..100] of integer; b,k,l,i,n: integer; begin writeln('skolko chesel vy bydete vvodit? '); read(n); for i: =1 to n do begin write('vvedite ',i,' chislo: '); read(a[i]); end; for i: =1 to n do begin b: =a[i] div 100; k: =a[i] div 10 mod 10; l: =a[i] mod 10; if (b mod 2 = 0) and (k mod 2 = 0 ) and (l mod 2 = 0) then writeln(a[i]); end; end.