Дан фрагмент программы

@Sergey06031983 · Регистрация: 24.10.2019

Дан фрагмент программы (все переменные – integer):

Pascal

z:=0; u:=x;
while u<>0 do
begin
if odd(u) then z:=z+y;
u:= u div 2;
end;

Выполните этот фрагмент с заданными x=5, y=10.
Чему равно z после выполнения?

@ValentinNemo · 24.10.2019, 20:16

Pascal

program Project1;
var
  z,u,x,y: integer;
begin
  x:= 5;
  y:= 10;
  z:= 0;
  u:= x;
  while u <> 0 do
    begin
      if odd(u) then
        z:= z + y;
      u:= u div 2;
    end;
  writeln('x = ',x,'; y = ',y,'; z = ',z,'; u = ',u,'.');
  Readln;
end.

x = 5; y = 10; z =20; u = 0.

@Sergey06031983 · 24.10.2019, 21:01 **[ТС]**

Спасибо

@Sergey06031983 0 / 0 / 0 Регистрация: 24.10.2019 Сообщений: 39
	24.10.2019, 21:01 [ТС]	3
	Спасибо 0

Опции темы