ответ не сходится программа печатает два числа a, b. указать наименьшее х, при вводе которого программа - id489943120221014 от ZEWER 14.10.2022 21:40

Question

Информатика: ответ не сходится программа печатает два числа a, b. указать наименьшее х, при вводе которого программа печатает сначала 3, а потом 10. x = int( a = 0 b = 1 while x 0: a = a + 1 b = b * (x % 8) x = x // 8 print (a, b) в ответе дано двузначное число, но а — показатель длины числа, т.е число должно быть трехзначным в 10сс

ZEWER · Accepted Answer

1. Для цикла For есть решение выложенное выше от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
i, n, k: integer;
begin
i := 2;
readln(n);
while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
i, n, k: integer;
begin
i := 2;
readln(n);
repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
until i> n div 2;
writeln('наибольший делитель ', n, ' = ', k);
end.

MOGZ ответил