6) ниже алгоритм. укажите наименьшее из таких чисел x, большее, чем 100, при вводе которого алгоритм напечатает 21.
var x, l, m: longint;
begin
readln(x);
l : = 3*x - 6;
m : = 3*x + 99;
while l < > m do
if l > m then
l : = l - m
else m : = m - l;
writeln(m)
end.
7) ниже записан алгоритм. получив на вход число x, этот алгоритм печатает два числа a и b. укажите наибольшее пятизначное число x, при вводе которого алгоритм печатает сначала 2, а потом 1.
var x, y, a, b: longint;
begin
readln(x);
a : = 0; b : = 0;
while x > 0 do begin
y : = x mod 10;
if y > 3 then
a : = a + 1
else
b : = b - 1;
if y < 8 then
b : = b + 1;
x : = x div 10;
end;
writeln(a);
writeln(b);
end.
8) получив на вход натуральное число x, этот алгоритм печатает два числа: a и b. укажите наибольшее натуральное число, при вводе которого алгоритм печатает сначала 13, а потом 3.
var x, a, b: longint;
begin
readln(x);
a : = 0; b : = 0;
while x > 0 do begin
x : = x div 9;
if x mod 2 > 0 then
a : = a + x mod 9;
b : = b + 1;
end;
writeln(a);
writeln(b);
end.

Alena18091    3   13.12.2019 17:13    114