Хелпикс

Главная

Контакты

Случайная статья





var x, L, M, Q: integer;. readln(x);. while x >= Q do begin. if M < L then begin. writeln(L);. writeln(M);. var x, L, M, Q: longint;. readln(x);. while x >= Q do begin. if M < L then begin. writeln(L);. writeln(M);. var x, L, M: longint;. re



 

P-13 (демо-2021). Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите

наибольшее число x, при вводе которого алгоритм печатает сначала 4, а потом 5.

var x, L, M, Q: integer;

begin

readln(x);

Q := 9;

L := 0;

while   x >= Q do begin

L := L + 1;

x := x - Q;

end;

M := x;

if M < L then begin

M := L;

L := x;

end;

writeln(L);

writeln(M);

end.

       

P-12. Ниже приведён алгоритм. Укажите наибольшее число , при вводе которого алгоритм напечатает сначала 3, потом – 6.

var x, L, M, Q: longint;

begin

readln(x);

Q := 15;

L := 0;

while x >= Q do begin

L := L + 1;

x := x - Q;

end;

M := x;

if M < L then begin

M := L;

L := x;

end;

writeln(L);

writeln(M);

end.


 

P-11. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое (т.е. большее 100) число x, при вводе которого алгоритм печатает 26.

var x, L, M: longint;

begin

readln(x);

L := x;

M := 65;

if L mod 2 = 0 then M := 52;

while L <> M do { * }

if L > M then { * }

L := L – M { * }

else       { * }

M := M – L; { * }

writeln(M);

end.

 

P-10. Ниже на пяти языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 30.

var x, L, M: integer;

begin

readln(x);

L := x-30;

M := x+30;

while L <> M do

if L > M then

L := L - M

else

M := M – L;

writeln(M);

end.

 

 

P-09. Ниже на пяти языках программирования записан алгоритм. Получив на вход число N, этот алгоритм печатает число q. Укажите наименьшее из таких чисел N, при вводе которых алгоритм напечатает 17.

varN, q, i:integer;

begin

read(N);

fori := 1toN - 1dobegin

ifNmodi = 0thenq := i

end;

write(q)

end.

 

 

P-08. Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа – это числа 9 и 81. Какое наибольшее число может быть напечатано третьим?



  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.