Дано целое положительное число A. Требуется вывести такое максимальное возможное натуральное нечетное число K, при котором 1+(1+3)+(1+3+5)+...+(1+3+...K) не превышает A
В Паскале
СРОЧНО
Ответы
Ответ дал:
0
Ответ: PascalABC.Net
Program Z;
var a,k,s,p,x:integer;
BEGIN
write('Задайте значение A: ');
read(a);
k:=1; s:=1;
while s<=a do
begin p:=0; x:=1; k:=k+2;
while x<=k do
begin p:=p+x;
x:=x+2;
end;
s:=s+p;
end;
write('Значение k равно ',k-2);
END.
Объяснение:
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад