Предмет: Информатика, автор: leragromova20

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.

Ответы

Автор ответа: ВорвараОо
0
k = 10240
напечатано будет " 10240 "

leragromova20: спасибо! помоги еще с этим пожалуйста! Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 3;
s := 0;
while n <= 7 do begin
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 больше становится)
Похожие вопросы
Предмет: Биология, автор: princesssadiana29
Предмет: Математика, автор: serkil0000