Составьте программу для вычисления количества первых нечетных чисел, в сумме дающих 100....

Question

Составьте программу для вычисления количества первых нечетных чисел, в сумме дающих 100. В paskal !

Comments

Спасибо, но нужно формой именно как в паскале.

---

Эм, ну не формы, а само написание программы в паскале.

---

Это да, но нам сказали именно в паскале это сделать (

Answer 1

Program n1;
var i,k,s: integer;
begin
while s<>100 do
begin
if i mod 2<>0 then
begin
s:=s+i;
k:=k+1;
end;
i:=i+1;
end;
writeln(k);
end.

Comments

Спасибо, выручил)