var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
begin
readln(n);
for i=:1 to n do
x:= (x-n);
end;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-n);
end.
?