Pavavras
6 год назад
Пожалуйста посчитайте пожалуйста!! Составьте программу в Паскале: Вычислить сумм всех нечётных чисел в интервале от 1 до 2К-1. Заранее ОГРОМНОЕ спасибо Вам!!
ОТВЕТЫ
Руслан
Oct 24, 2020
var
k: integer; s: real;
begin
readln(k);
s := ((1+(2*k-1))/2)*(((2*k-1)-1)/2+1);
writeln(s);
end.
k: integer; s: real;
begin
readln(k);
s := ((1+(2*k-1))/2)*(((2*k-1)-1)/2+1);
writeln(s);
end.
124
