Определите что будет выведено на экран

Определите, что будет выведено на экран после выполнения фрагмента программы: x:=0; y:=5; While y больше 0 do begin y:=y

Для того, чтобы определить, что будет выведено на экран после выполнения фрагмента данной программы, пройдемся по ее коду и найдем конечный результат:

While y больше 0

do begin y:= y — 2; (y:= 5 — 2 = 3);

x:= x + y; (x:= 0 + 3 = 3);

2) Поскольку полученное значение y = 3 больше нуля, то мы не выходим из цикла while и продолжаем выполнение программы:

do begin y:= y — 2; (y:= 3 — 2 = 1);

x:= x + y; (x:= 3 + 1 = 4);

3) Поскольку полученное значение y = 1 больше нуля, то мы не выходим из цикла while и продолжаем выполнение программы:

do begin y:= y — 2; (y:= 1 — 2 = -1);

x:= x + y; (x:= 4 + (-1) = 3);

4) Поскольку полученное значение y = -1 меньше нуля, то мы выходим из цикла while и продолжаем выполнение программы:

Определите что будет выведено на экран

10 месяцев назад

а ну-ка.
3.Определите, что будет выведено на экран после выполнения фрагмента программы:
x := 6;
y := x-5;
y := y-1;
if (y>=0) then writeln(\’Ola\’)
else writeln(\’Hello\’);

4. Что будет напечатано в ходе выполнения данной программы?
var a,b: integer;
begin
a:=5;
b:=a-7;
a:=a-b;
while (a>0) do begin
a:=a-2;
b:=b+3;
end;
write(b);
end. ​​

Определите что будет выведено на экран

Var s : integer ; k : real ;

If s mod 2 &lt ; &gt ; 0 then

var a, b, c, d, e, max : integer ;

if max&gt ; c then begin

if d&gt ; e then begin

for i : = 100 to 999 do

if (i mod 7) = 0 then writeln(i) ;

for i : = 100 to 999 do

if (i mod 13) = 0 then s : = s + i ;

for i : = 1 to 10 do

Определите, что будет напечатано в результате выполнения следующего алгоритма :var a, b : integer ;begina : = 1 ;b : = 1 ;while abs(b)&lt ; 100do begind : = b * ( — 1) ;a : = 3 * a + b ;b : = a * b ;e?

var a, b : integer ;

function f (n : byte) : longint ;

if n = 0 then f : = 1

else f : = (2 * n) * f(n — 1) ; end ;

z : = f(5) ; writeln (z) ; end.

Какое число будет напечатано в результате выполнения программы : var i, k : integer ; function f(x : integer) : integer ; var m : integer ; begin if x &lt ; 10 then f : = x else begin m : = f(x div 10?

Пожалуйста исправите ошибку в программе program zagadki2 ; var a, b, c, d : string ; begin CLS ; writeln(‘Привет, я программа, загаывающая загадки’) ; writeln(‘Будешь отгадывать ?

Var a, b : integer ; znak = ‘»’ then begin writeln(‘( — 00 ; , — b / a, ‘)’) ; end ; end.

Тест по по основам алгоритмизации и программирования (следование, ветвление, цикл с условием)

Было проведено 6 запусков программы, при которых в качестве значений переменных a и b вводились следующие пары чисел:

Сколько было запусков, при которых программа напечатала «ДА»?

Вопрос 9

Что будет выведено на экран при выполнении данной программы?