Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.<span>
</span>
Var fa,i,n:integer;beginReadln(n);fa:=1;while fa < n do begini:=i + 1;fa:= fa * i;write(fa:4);end;writeln;write(i-1);end.
Берем это число. Начинаем делить на 3 в цикле. К какой-либо переменной присваиваем +1.
Ну делим, проверяя на наличие остатка (должен быть равен 0)
Потом, если остаток образуется, выходим из цикла, выводим "ложь". Иначе проверяем, если переменная, к которая считала кол-во делящихся элементов делится нацело на 3 без остатка, выводим "истина" иначе ложь. Два цикла
Я на с++ пишу, скорее всего не подойдет