информатика 1. Выполните перевод:
10
в) 6317
10
а) 101 101, 210
г) 190o - ?
ж) 1 1011 - ?
б) 1110000, ?
д) 909 ?
3) 13021, 2
е) 1236
16
И) ТА2В

207

329

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

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

Региша10

Информатика

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

Var n,i,a,k: integer; begin write('введите количество чисел (n): '); readln(n); for i : = 1 to n do begin write('введите число: '); readln(a); if a mod 2 = 0 then k: =k+1; end; writeln('количество чётных чисел: ',k) end. var a,k: integer; begin write('введите число: '); readln(a); while a< > 0 do begin k: =k+1; write('введите число: '); readln(a) end; writeln('количество чисел в последовательности: ',k) end.