Kirill316111
16.03.2023 12:32

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vixoreva98
09.10.2020 20:36

алг

нач

цел a, s

s:=0

ввод a

нц пока a<>0

 s:=s+1

 ввод(a)

кц

вывод(s)

кон


Если будут ошибки отписаться

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота