Определите, что будет напечатано в результате работы - id3516178 от эхпечальнокакто 10.03.2023 20:56

Question

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

эхпечальнокакто · Accepted Answer

При таком придётся переделать цикл полностью. в частности, придётся отказаться от цикла for и использовать while. также придётся ввести индекс, определяющий количество значений, не равных введённому. используем переменную b для этой цели. переделывая твой код получаем следующее. uses crt; var a,b,d,i: integer; begin readln (a); randomize; b : = 0; while i 3 do begin d: =random (10); if d a then begin write ( ,d, ); i += 1; end; end; end....

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

Ответы на вопрос:

Популярно: Информатика