Регистрация
Kaefwf
24.08.2022 23:24
Информатика
Есть ответ 👍

1. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:
a:=1; b:=1;
while a>=b do b:=b+a;
a:=a+1;
write(b*a)

2. Сколько раз будет исполнен Цикл в фрагменте программы?
а) p:=2;
repeat
p:=p*0.1
until p<0.1;

б) p:=1;
repeat
p:=p*0.1
until p>0.1;

3.Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:
a:=1; b:=1;
while a<=32 do a:=a*2;
b:=b*a;
write (b)

104
148
Посмотреть ответы 1

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

FJcjfjvj
FJcjfjvj
4,7(89 оценок)

var arr: array [1..9] of integer;

i, num: integer;

begin

i : = 1;

while (i < = 9) do

  begin

    readln(num);

    if (num mod 3 = 0) then

      begin

        arr[i] : = num;

        i : = i + 1;

      end;

  end;

end.

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