Информатика, вопрос опубликован 10.03.2019 18:52 бооой

Как вы понимаете понятие ветвление ?

Ответы
Ответ добавил: Гость

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

Ответ добавил: Гость

60,111100,3c,74

Ответ добавил: Гость

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

Ответ добавил: Гость

p = 1, i = 1

1 цикл

p = p · i = 1 · 1 = 1

i = i + 1 = 1 + 1 = 2

2 > 3 ? false

2 цикл

p = p · i = 1 · 2 = 2

i = i + 1 = 2 + 1 = 3

3 > 3 ? false

3 цикл

p = p · i = 2 · 3 = 6

i = i + 1 = 3 + 1 = 4

4 > 3 ? true

выход из цикла

ответ

b

Больше вопросов по информатике