Уменя есть планшет prestigio pmt3318_3g3 , и вот где-то полгода назад планшет начал не правильно показывать - id994940520211027 от karina270607 27.10.2021 11:03

Question

Информатика: Уменя есть планшет prestigio pmt3318_3g3 , и вот где-то полгода назад планшет начал не правильно показывать процент зарядки, то есть было показано 100%, а только снимаешь с зарядки он почти сразу садится.что мне нужно заменить и почему это произошло? р.s это произошло в тот же день как я поменял симку.

karina270607 · 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 ответил