Видимо, " наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 1)var x, i, max: integer; function del(x: integer): integer; begin for i : = 1 to x div 2 do begin if x mod i = 0 then max : = i; end; del : = max; end; begin read(x); writeln(del(x)); end.
vladburakoff5
20.07.2021
Var a: array[1..1000] of integer; n, i, amount, sum: integer; begin read(n); amount : = 0; sum : = 0; for i : = 1 to n do begin read(a[i]); if a[i] mod 3 = 0 then begin sum : = sum + a[i]; amount : = amount + 1; end; end; writeln(amount, ' ', sum); end.
ответ:
объяснение:
называется "размер (кегль) шрифта"