ошибка отправки задач. последний день. а ничего не отправляется
от olimp171043 olimp171043 - Среда 27 Сентябрь 2017, 08:39
  №258
uses crt;
var n,m,k: integer;
begin
write('n=');
readln(n);
write('m=');
readln(m);
write('k=');
readln(k);
if ((k mod n=0) or (k mod m=0)) and (kmx then
begin
mx:=KolDel(a);
amx:=a;
end;
end;
until a=0;
if amx=0 then write('Вы не ввели ни одного числа, отличного от 0')
else write('Наибольшее число делителей в числе ',amx);
readln
end.
№117
var n:integer;
begin
write('n=');
readln(n);
while n>0 do
begin
write(n mod 2);
n:=n div 2;
end;
readln
end.
№1456
var a: array [1..100] of longint;
n, i, k,r: longint;
begin
readln(n);
k:=0;
for i := 1 to n do
begin
read(a[i]);
readln(r);
if a[i] > r then begin inc(k)
end;
end;
writeln(k+1);
end.
№241
var i,x,x1:integer;
a:array[1..1000] of integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if a[i]=0 then x:=i; break;
end;
for i:=1 to 20 do
if a[i]=1 then x1:=i;
writeln(x1-x-1);
end.