6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end. 5) Определите значение переменных a и b после выполнения следующего фрагмента программы: a : = 2468; b : = (a mod 1000) * 10; a : = a div 1000 + b; Выведите значения а и b через пробел. / 4) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 100 do begin s:=s+k; k:=k+4; end; write (k); end.

Question

Фёдор Поздняков

Информатика

28 декабря, 09:12

6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end. 5) Определите значение переменных a и b после выполнения следующего фрагмента программы: a : = 2468; b : = (a mod 1000) * 10; a : = a div 1000 + b; Выведите значения а и b через пробел. / 4) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 100 do begin s:=s+k; k:=k+4; end; write (k); end.

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Георгий Терехов · Answer 1

6) var n, s: integer;

begin

s : = 0;

for n:=4 to 13 do / / n = 4, n = 5, n = 6, n = 7, n = 8, n = 9, n = 10, n = 11, n = 12, n = 13.

begin

s : = s + 15; / / s = 15, s = 30, s = 45, s = 60, s = 75, s = 90, s = 105, s = 120, s = 135, s = 150.

end;

write (s) / / s = 150

end.

5) Добавим в программу следующую строку:

write ('a = ', a,' ','b = ', b);

Полученные значения переменных a = 4682 и b = 4680

4) В результате работы программы на экран выведется значение переменной k = 32