Var i, a, s: integer; begin s: =0 for i: = 1 to 5 do begin readln(a); if (a mod 6= 0) and (a mod 10=4) then s: = s+ a; end; writeln(s) end. на выходе 14 24 144 22 12 что на выходе

Популярно: Информатика

• 

  katyasha0504

  27.04.2023 00:33
  В массиве значения элементов меняются местами с кода: num=[7, 8, 0, 9, 11, 3,...
• 

  Умару11

  28.09.2021 07:17
  помагите Составьте два списка. В первом списке напишите 5 видов спорта, а во втором...
• 

  Renatka96

  22.01.2021 22:14
  Типы данных Величина, которая во время работы программы может менять свое значение....
• 

  ewvyevs

  13.02.2022 07:05
  Компилятор мен интерпретатордың айырмашылығы неде?​...
• 

  Danilkal12

  25.01.2022 22:59
  • графикалық интерфейсінің компоненттерін құру үшін қандай кітапхана қолданылады...
• 

  zhekeeva2013

  05.10.2022 01:05
  3. укажите наиболее правильный ответ. электронная почта … 1) организует службу...
• 

  mssalina5

  07.11.2020 06:05
  50 ! расшифруй сообщение. рисунки и названия многих животных даны в конце книги....
• 

  verenikinaulia

  01.01.2023 01:33
  Сочинение-рассуждение на тему зачем нужны знаки препинания? По плану. План 1....
• 

  nastyamashkina12

  02.11.2022 15:41
  За 3 днi Маринка прочитала 27 сторінок книжки,а Микола за 5 днів прочитав 40 сторінок.хто...
• 

  girlvikak

  14.05.2021 17:58
  Молекули води в рідкому стані розташовані групами?...