azarov8906
?>

Можете перевести с паскаля в 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
Управляющий сайт _Портал_
Степень соответствия желаемому поиску в Интернете _Релевантность_
Базовый объект операционной системы 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.
Ваше имя (никнейм)*
Email*
Комментарий*

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

yana799707
art-03857
sergeev-alp5
алексеевич810
gub191025
zsa100
steff77
Chistov9721209
departed744
violetta152028
Yezhov_igor42
Bolshakova Shigorina
Gaziev1636
Yelena_Irina826
Shishkinaanasta1997