1) 7; 6; 9; 8 ; 11; 10; 13; 12; 15; 14 - тут сначала отнимаем 1. Потом прибавляем 3. 2) 2; 3; 5; 7; 8; 10; 12; 13; 15; 17 - тут сначала прибавляем 1. Потом прибавляем 2. А потом еще раз 2.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
1. begin write(' '); var P:=ArrRandom(10,10,90).Println(' '); var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray; for var i:=0 to T.Length-1 do write(T[i]:7:2); end.
2. begin var k:=ReadInteger('k = '); var a:=ArrRandom(10,-20,20).Println; var m:=a.Where(x->x<0).Max; writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k); end.
2)2;3;5;7;10