Ответ:
3. 12
Объяснение:
Здесь цикл с постусловием, который прерывается когда z = 0
x = 96 y = 54
z = x mod y = 96 mod 54 = 42
z = 0 (нет) х = у = 54 у = z = 42
x = 54 y = 42
z = x mod y = 54 mod 42 = 12
z = 0 (нет) х = у = 42 у = z = 12
x = 42 y = 12
z = x mod y = 42 mod 12 = 6
z = 0 (нет) х = у = 12 у = z = 6
x = 12 y = 6
z = x mod y = 12 mod 6 = 0
z = 0 (да)
x = 12 y = 6
Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
Файл с исходным кодом прикреплен в описании (нужно переименовать с 'Program.cs.txt', на просто 'Program.cs'), код продублирован в коментариях к ответу. Если есть вопросы - пиши в коменты.
Код полностью прокоментирован, надеюсь будет понятно.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8