, 24 2020 . 22:48
+
swf: 2020,
2, 24
http://kotolis.ru/realegeinf_2020
.
, , , .
.
. , , . , NO. .
.
1. , 70 93 50 19 .
2. , , , .
3. ( ). , , .
.
:
var maximum, i ,x, count: integer;
begin
count:= 0; sum:= 0;
for i:= 1 to 4 do
begin
read (x);
if x mod 2 = 0 then
begin
count:= count + 1;
sum:= x + i;
end;
end;
if sum > 0 then
begin
writeln(count);
writeln (sum);
end
else writeln('NO')
end.
sum, .
, , .. .
1. . count , .. count = 2 (70 50). sum , .. sum = 50 + 3 = 53.
2 53
2. , , , 1 3 5 7. .. sum = 0, NO.
3. sum:= x + i; -
sum:= x + sum; -
if sum > 0 then -
if count > 0 then -
https://forum.sources.ru/index.php?showtopic=419234&view=findpost&p=3835135
