1. Определите, что будет напечатано в результате работы следующего фрагмента программы:...

Question

1. Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 1024 do begin
s:=s+10;
k:=k+1;
end;
write(k);
end.

Answer 1

K = 10240
напечатано будет " 10240 "

Comments

спасибо! помоги еще с этим пожалуйста! Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 3;
s := 0;
while n <= 7 do begin<br> s := s + n;
n := n + 1
end;
write(s)
end.

---

строчка где while можно её разборчевей написать? я часть &lt не вдупляю немного

---

&lt *

---

емли в условии <= 7, то пооходов будет 5. значит s=15. если ' >= ' или ' = ' печатать не будет так как условие не выполняются

---

а не не не

---

3 + 4 + 5 +6 +7

---

выведет 25

---

забыла что n после каждого прохода на 1 больше становится)