Я ничего незнаю мне самой нужен ответ но никио ничего не пишет
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var x:=ReadlnInteger('Введите x');
var y:=ReadlnInteger('Введите y');
writeln(max((x+y),(x*y))-2);
end.
A = 5
b = 10
from math import gcd
for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')
Program work;
Var chisla:array [1..n] of integer; sum, i:integer;
Begin
For i:=1 to n do
Begin
If chisla [i] mod 2 <>0 then
Sum:=sum+chisla[i];
End;
Writeln (sum);
End.