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

197

267

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

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

GetMaths

Информатика

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

Pascalabc.net программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным. var t : text; a,k,i : integer; begin assign (t,'file.txt'); reset (t); i : = 0; k : = 0; while not eof (t) do begin i : = 0; while not eoln (t) do begin read (t,a); if (a = 0) and (i = 1) then k : = k +1; if i = 0 then i : = 1 else i : = 0; end; readln (t); end; close (t); writeln (k); end.