<h3>Решение (Pascal):</h3>
var
x, y, S: integer;
begin
read(x, y);
if (x > y) then
begin
x := x - 10;
y := y + 24;
end
else
begin
x := x + 5;
y := y - 7;
end;
S := x - y;
writeln(x, ' ', y, ' ', S);
end.
----------------------------
Файл решения прикреплён.
Var n,i,s,a:integer;
begin
write('Введите n = '); readln(n);
s:=0; a:=0;
for i:=1 to n do
begin
a:=a+2;
s:=s+a*a;
end;
writeln('Сумма квадратов ',n,' четных натуральных чисел = ',s);
<span>end. </span>
В режиме разметки страницы можно увидеть границы страниц.
1024 гб это все, что я знаю из курса информатики