Переведите с паскаля на кумир! var a, s: integer; begin s : = 0; read (a); while a 0 do begin s : = s + 1; read(a); end; writeln(s);

Question

Информатика: Переведите с паскаля на кумир! var a, s: integer; begin s : = 0; read (a); while a 0 do begin s : = s + 1; read(a); end; writeln(s); end.

Tinochka173 · Answer

алгнач цел a, s s:=0 ввод a нц пока a 0  s:=s+1  ввод(a) кц вывод(s)конЕсли будут ошибки отписаться...

Переведите с паскаля на кумир! var a, s: integer; begin s : = 0; read (a); while a < > 0 do begin s : = s + 1; read(a); end; writeln(s); end.

Популярные вопросы