У Арлана есть N шариков красного и синего цвета. Каждый шарик имеет свой вес Mi. Для удобства вес красных - id1647386520221005 от FeLtSmAn 05.10.2022 10:57

Question

Информатика: У Арлана есть N шариков красного и синего цвета. Каждый шарик имеет свой вес Mi. Для удобства вес красных шариков будем обозначать положительным числом, а вес синих шариков – отрицательным. Вес шарика не может быть нулевым. Арлан хочет украсить новогоднюю ёлочку парами шариков синего и красного цвета одного веса ему определить, сколько пар можно составить из имеющихся шариков. Входные данные В первой строке дано натуральное число N, не превосходящее 100000. Во второй строке даны N целых чисел Mi.

FeLtSmAn · Accepted Answer

1)
var x:integer;
begin
read (x);
if (x=12) or (x=1) or (x=2) then writeln ('Зима');
if (x=3) or (x=4) or (x=5) then writeln ('Весна');
if (x=6) or (x=7) or (x=8) then writeln ('Лето');
if (x=9) or (x=10) or (x=11) then writeln ('Осень');
end.
2)
var K,a:integer;
begin
readln(K);
a:=K mod 10;
if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else
begin
if (a=1) then writeln ('У меня ',K,' друг');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей');
if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга');
end;
end.

MOGZ ответил