Ответы
Ответ дал:
0
PROGRAM B04;
CONST
max = 1000;
VAR
index:word;
q:boolean;
sum, frac:real;
BEGIN
q:=true;
sum:=1;
index:=2;
while (index<=max) and q do begin
sum:=sum+index;
frac:=index*(index+1)/2;
if (sum<>frac) then begin
q:=false;
writeln(sum,' <> ',frac);
end;
index:=index+1;
end;
if q then
writeln('Равенство доказано для первых ', max, ' чисел')
else
writeln('При n = ',index, ' равенство неверно');
END.
CONST
max = 1000;
VAR
index:word;
q:boolean;
sum, frac:real;
BEGIN
q:=true;
sum:=1;
index:=2;
while (index<=max) and q do begin
sum:=sum+index;
frac:=index*(index+1)/2;
if (sum<>frac) then begin
q:=false;
writeln(sum,' <> ',frac);
end;
index:=index+1;
end;
if q then
writeln('Равенство доказано для первых ', max, ' чисел')
else
writeln('При n = ',index, ' равенство неверно');
END.
Приложения:
![](https://st.uroker.com/files/98b/98b73e395ae2bfe4a018223cb1d2db8a.png)
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад