Ниже на пяти языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите наименьшее число x, при вводе которого алгоритм печатает сначала 5, а потом 6. var x, L, M: integer;; begin readln(x); L := 0; M := 0; while x > 0 do begin M := M + 1; if x mod 2 <> 0 then L := L + 1; x := x div 2; end; writeln(L); writeln(M); end.

1 программа:

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

sum:= 0;

readln(a);

while(a <> 0) do begin

sum:= sum + a;

readln(a);

end;

writeln('Сумма чисел = ', sum);

end.

2 программа:

var a, sum:integer;

begin

a:=0;

while(a <= 100) do begin

if (a mod 2 = 0) then

 sum:= sum + a;

a:= a + 1;

end;

writeln('Сумма четных чисел = ', sum);

end.

3 программа:

var a, i, N:integer;

begin

writeln('Введите N');

readln(N);

a:=1;

for i:=1 to N do begin

 write(a*a, ' ');

 a:= a + 1;

end;

end.