Вот, решил, что лучше в файлах отправить, проще так х)
Ответ под номером 4
........................
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
341 123 222 111 если это одно число, то ответ 5 так как в 5 системе счисления присутствуют числа 01234
если это разные число то
341 ответ 5
123 ответ 4
222 ответ 3
111 ответ 2
Program z1;
var s,k:longint;
Begin
Readln(s);
k:=trunc(sqrt(s));
Writeln(k);
End.