Коля, Боря, Вова и Юра заняли первые четыре места в соревновании. На вопрос, какие места они заняли, трое из них ответили: 1. Коля – ни первое, ни четвертое; 2. Боря – второе; 3. Вова не был последним. Какое место занял каждый мальчик?
Пояснение: заполни массив 10-ю элементами и он выдаст то, что тебе нужно var arr: array [1..10] of integer; var i,min,max:integer; begin for i:=1 to 10 do begin writeln('Введите ',i,' элемент'); readln(arr[i]); end; min:=0; max:=0; for i:=1 to 10 do begin if (arr[i]<0) then begin if (arr[i]<min) then begin min:=arr[i]; end; end else if (arr[i]>0) then begin if (arr[i]>max) then begin max:= arr[i]; end; end; end; writeln('Минимальный элемент среди отрицательных чисел ',min); writeln('Максимальный элемент среди положительных чисел ',max); end.
Функция считает, если коротко n := 7+9*((2570-35) div d + 1) 196 = 7+9*((2570-35) div d + 1) (196-7)/9-1 = (2570-35) div d 20 = 2535 div d 4 = 507 div d 507/4 =126.75, значит можно взять меньше подбором 126 125 124 123 122 121 => 6 чисел
или программой //PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию function f(d: integer): integer; var n, s: integer;
begin n := 7; s := 35; while s <= 2570 do begin s := s + d; n := n + 9 end; f := n; end;
begin for var i := 1 to 100000000 do begin if f(i) = 196 then writeln(i); if f(i) <> 7 + 9 * ((2570 - 35) div i + 1) then writeln('not ', i); end; end.
Вова 1 место
Боря 2
Коля 3место
Бра 4 место