ответ: Вот прога судя по схеме:
Но знак должен быть не <, а >
Если меньше то везде 0
var s,i:real;
begin
s:=0;
i:=0;
while i <= 6 do begin
s:=s+i;
i:=i+1;
writeln('i',i);
writeln('s',s);
end;
writeln(s);
end.
Запись по порядку (так и вноси в таблицу):
Шаг:1,2,3,4,5,6,7
ответ s: 0,1,3,6,10,15,21
ответ i: 1,2,3,4,5,6,7
ответ: Вот прога судя по схеме:
Но знак должен быть не <, а >
Если меньше то везде 0
var s,i:real;
begin
s:=0;
i:=0;
while i <= 6 do begin
s:=s+i;
i:=i+1;
writeln('i',i);
writeln('s',s);
end;
writeln(s);
end.
Запись по порядку (так и вноси в таблицу):
Шаг:1,2,3,4,5,6,7
ответ s: 0,1,3,6,10,15,21
ответ i: 1,2,3,4,5,6,7