Напишите программу, которая выводит на экран последний член последовательности 1, -3, -7, -11, -15... меньший заданного числа и его сумму с предыдущими членами последовательности
Answers & Comments
hhh54Program hhh54; var n,x,s:longint; begin s:=0; read (n); x:=1; while x > n do begin s:=s+x; x:=x-4; end; s:=s+x; write (x,' ',s); end.
Answers & Comments
var n,x,s:longint;
begin
s:=0;
read (n);
x:=1;
while x > n do
begin
s:=s+x;
x:=x-4;
end;
s:=s+x;
write (x,' ',s);
end.