Переведите с паскаля на кумир! var a, s: integer; begin s : = 0; read (a); while a < > 0 do begin s : = s + 1; read(a); end; writeln(s); end.
287
417
Ответы на вопрос:
алг
нач
цел a, s
s: =0
ввод a
нц пока a< > 0
s: =s+1
ввод(a)
кц
вывод(s)
кон
если будут ошибки - прошу отписаться
Year = 2013; while (true) do begin inc(year); fl : = 3; if (year mod 2 ! = 0) then del(fl); if (year mod 3 ! = 0) then dec(fl); if (year mod 5 ! = 0) then dec(fl); if (fl = 2) then writeln( 'две совпали' ); if (fl = 3) then begin writeln( 'все три совпали' ); break; end; end;
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
998974452408112.04.2020 02:14
-
koroleva185821.05.2021 17:13
-
dashasapleva617.01.2022 12:33
-
safaannainfinity02.02.2020 00:03
-
2005NeZnayka200510.02.2021 14:50
-
Артур1505150518.10.2021 17:16
-
vladlukyanov130.09.2020 19:53
-
katuschaglebtsc15.09.2022 10:24
-
sapunovegor2215.04.2022 11:53
-
Gggmim23.07.2021 06:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.