Ответ 18.
Сначала мы умножаем со старым значением и получаем 30. Потом30/5=6 6*3=18
Если на паскале, то так:
writeln('a=',a,';b=',b);
1) program example 1;
var
x, y,z : integer;
sr_arif : real;
begin
write ( ' введите числа x, y и z ' );
readln (x,y,z);
sr_arif := (x+y+z)/3;
writeln( ' среднее арифметическое чисел x, y и z =' , sr_arif);
end.
Var x,a,h:integer;
begin
read(x);
while a<=x-3 do
begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.