Регистрация
hcufiyicii
29.10.2022 22:52
Информатика
Есть ответ 👍

с контрольной по информатике , мне

252
341
Посмотреть ответы 2

Ответы на вопрос:

амира45
амира45
4,6(20 оценок)

1-в

2-б

3-г

4-г

5-б

6-б

7-в

Сори дальше не знаю

isya1991
isya1991
4,5(13 оценок)
Function reversef(f: integer; var n: integer): boolean; var   i,k: integer;   p: longint; begin   if f=1 then begin reversef: =true; n: =1 end   else begin       k: =2;       repeat           p: =1;           for i: =2 to k do p: =p*i;           if p< f then inc(k)       until p> =f;       if p=f then begin reversef: =true; n: =k end       else begin reversef: =false; n: =-1 end   end end;

Популярно: Информатика