//прога на Pascal`e
var
N : uint64;
K : real;
begin
write ('Введите кол-во ног: ');
readln (n);
write ('Введите отношение ног жуков к паукам: ');
readln (k);
if trunc (n/(k+1)) <> n/(k+1) then write ('Неверное условие!')
else
if trunc (n/(k+1)) mod 8 <> 0 then write ('Неверное условие!')
else write ('Жуков: ', n/(k+1)*k/6, ', пауков: ', n/(k+1)/8);
end.
Это первая часть. Надеюст разберете мой корявый почерк
Эм... А можно поконкретнее написать ничего не понятно
Var a:array[1..10000] of integer;
n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do
begin
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
<span>6
1 2 3 2 3 3
k = 3</span>