Задать вопрос
20 сентября, 03:13

Найдите значение х после выполнения следующего алгоритма, если х=11

A. x:=x+1

Б. x:=3x+1

B. x:=x/2

C. x:=100-x

D. x:=x*2

E. begin

x:=x+1

x:=3x+1

x:=x/2

x:=100-x

x:=x*2

write (x) ;

end.

+2
Ответы (1)
  1. 20 сентября, 04:35
    0
    А) х=12

    Б) х=34

    В) х=5.5

    С) х=89

    D) x=22

    E) x=12

    12*3+1=37

    37/2=18.5

    100-18.5=81.5

    81.5*2=163

    Ответ: A) 12, Б) 34, B) 5.5, C) 89, D) 22, E) 163
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найдите значение х после выполнения следующего алгоритма, если х=11 A. x:=x+1 Б. x:=3x+1 B. x:=x/2 C. x:=100-x D. x:=x*2 E. begin x:=x+1 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.
Ответы (1)
Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. Паскаль var a, b, a, K, L: integer; begin F: = (1-x) * (x-9) + 4 end; Begin a:=-16; b:=16 K:=a to b do if F (s) > L then begin K:=s; L:=F (a) end; writen (K) End.
Ответы (1)
Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;
Ответы (2)
Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...
Ответы (1)
1) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 3; s : = 0; while n < = 26 do begin s : = s + 6; n : = n + 1 end; write (s) end.
Ответы (2)