Можете перевести с паскаля в c++ var a, n, i, sum, c, min: integer; begin sum := 0; c := 0; min := 10001; read(n); for i := 1 to n do begin read(a); sum := sum + a; c := c + 1; if(a < min) and (a mod 4 <> 0) then min := a; end; if(sum mod 4 = 0) and (min <> 10001) then begin sum := sum - min; c := c - 1; end; if(sum mod 4 = 0) then begin write(0); exit; end; writeln(c, ' ', sum); end.

Информатика

Ответить

Ответы

Tsevich333639

13.10.2022

Управляющий сайт _Портал_
Степень соответствия желаемому поиску в Интернете _Релевантность_
Базовый объект операционной системы Windows _окно_
Документ, взятый из Интернета _Веб-документ_
Сетевая карта _Адаптер_
Глобальная мировая компьютерная сеть _Интернет_
Часть URL адреса _Домен_
Электронная почта на английском языке _Е-mail_
Они бывают людские, природные, экономические, скрытые, аппаратные, программные, информационные, открытые, закрытые _Ресурсы_
Запишите первые буквы каждого термина и вы получите слово _ПРОВАИДЕР_

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Можете перевести с паскаля в c++ var a, n, i, sum, c, min: integer; begin sum := 0; c := 0; min := 10001; read(n); for i := 1 to n do begin read(a); sum := sum + a; c := c + 1; if(a < min) and (a mod 4 <> 0) then min := a; end; if(sum mod 4 = 0) and (min <> 10001) then begin sum := sum - min; c := c - 1; end; if(sum mod 4 = 0) then begin write(0); exit; end; writeln(c, ' ', sum); end.