Дана блок-схема. Какое значение будет иметь z на выходе, если x=30? (промежуточные вычисления не округляйте; ответ округли до десятых)

Z = (1 + 30) : 2 = 15,5 : 2 = 7,75;

I = i + 1 = 0 + 1 = 1.

Z = (7,75 + 30) : 2 = 18,875 : 2 = 9,4375;

I = i + 1 = 1 + 1 = 2.

Z = (9,4375 + 30) : 2 = 19,71875 : 2 = 9,859375;

I = i + 1 = 2 + 1 = 3.

Z = (9,859375 + 30) : 2 = 19,9296875 : 2 = 9,96484375;

I = i + 1 = 3 + 1 = 4.

Z = ( 9,96484375 + 30) : 2 = 19,982421875 : 2 = 9,9912109375;

I = i + 1 = 4 + 1 = 5.

Т. к. i (5) > 4, то цикл окончен.

ответ: Z = 10 (округлил до десятых).

вычислительная техника  является важнейшим компонентом процесса вычислений и обработки данных. первыми приспособлениями для вычислений были, вероятно, всем известные  счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. развиваясь, эти приспособления становились более сложными, например, такими как  финикийские  глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени. постепенно из простейших приспособлений для счёта рождались всё более и более сложные устройства:   абак  (счёты),  логарифмическая линейка,  арифмометр,  компьютер. несмотря на простоту ранних вычислительных устройств, опытный счетовод может получить результат при простых счётов даже быстрее, чем нерасторопный владелец современного калькулятора. естественно, производительность и скорость счёта современных вычислительных устройств уже давно превосходят возможности самого расчётчика-человека.

1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
 a[i] := random(10);
 write (a[i], ' ')
 end;
writeln;
writeln('b:');
for i:=1 to 8 do
 begin
 b[i] := a[i]*a[i];
 write (b[i], ' ')
 end;
end.

Пример:
a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49

2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
 a[i] := random(50)+10;
 write (a[i], ' ')
 end;
writeln;
for i:=1 to 9 do
 if a[i] mod 2 = 0
  then writeln(a[i], ' - четное число')
  else writeln(a[i], ' - нечетное число')
end.

Пример:
a:
55 51 18 35 33 56 15 56 47 
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число