Форум » Обработка целых чисел » 17 с демо-версии » Ответить
17 с демо-версии
inform_lesson: Добрый день. В программе для №17 из демо версии считает "лишние" пары, второе число выводит правильно. В чём ошибка ? [pre2]const n=5000; var m:array[1..n] of integer; a,max3,max,k,i:integer; begin max3:=-10003; max:=0; assign(input,'17.txt'); for i:=1 to n do begin readln(a); if (abs(a) mod 10=3)and (abs(a)>max3)then max3:=abs(a); m[ i]:=a; end; for i:=1 to n-1 do if ((abs(m[ i]) mod 10=3)and (abs(m[ i+1]) mod 10<>3))or ((abs(m[ i]) mod 10<>3)and (abs(m[ i+1]) mod 10=3))and (sqr(m[ i])+sqr(m[ i+1])>=sqr(max3))then begin inc(k); if sqr(m[ i])+sqr(m[ i+1])>max then max:=sqr(m[ i])+sqr(m[ i+1]); end; write(k,' ',max); end.[/pre2]
Ответов - 0
полная версия страницы