Var x, s, p: integer; i: integer; begin s := 0; p := 1; for i := 1 to 10 do begin write(i,' Число = '); readln(x); s := s + x; p := p * x end; write('Сумма = ', s, ', Произведение = ', p); end.
if (x > y){ /*если x > y то он поменяет их местами*/ std::cout << "x и y поменяны местами\n" x ^= y; y ^= x; x ^= y; }else{ std::cout << "x и y не поменяны местами\n"; }
if (x > y){ /*если x > y то он поменяет их местами*/ std::cout << "x и y поменяны местами\n" x ^= y; y ^= x; x ^= y; }else{ std::cout << "x и y не поменяны местами\n"; }
i: integer;
begin
s := 0;
p := 1;
for i := 1 to 10 do
begin
write(i,' Число = ');
readln(x);
s := s + x;
p := p * x
end;
write('Сумма = ', s, ', Произведение = ', p);
end.