Что является самым главным при рисовании с натуры или по фотографии? Полагаться на зрительные наблюдения Правильно держать карандаш Рассчитывать на мастерство Использовать память
uses crt; var a, b, c, i, j, n:integer; s, k :array [1..10000] of integer; begin clrscr; writeln ('Введите размер массива > 4.'); read (n); for i:=1 to n do begin writeln ('Введите ', i, ' элемент.'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do while s[i]=s[j] do begin j:=j+1; inc (k[i]); end; a:=k[1]; for i:=1 to n do if a<k[i] then a:=k[i]; if k[i]=0 then k[i]:=1; writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.'); for i:=1 to n-5 do if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then inc (b); if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b); end.
при х=1, косинус < 0, корень из отрицательного числа не существует
при х=3 ,а a=1 f(x,a) = 1,69720678173023
при х=3 ,а a=2 f(x,a) = 3,39441356346047
при х=3 ,а a=3 f(x,a) = 5,0916203451907
при х=3 ,а a=4 f(x,a) = 6,78882712692094
при х=3 ,а a=5 f(x,a) = 8,48603390865117
при х=3 ,а a=6 f(x,a) = 10,1832406903814
при х=3 ,а a=7 f(x,a) = 11,8804474721116
при х=6 ,а a=1 f(x,a) = 2,25013860737399
при х=6 ,а a=2 f(x,a) = 4,50027721474798
при х=6 ,а a=3 f(x,a) = 6,75041582212197
при х=6 ,а a=4 f(x,a) = 9,00055442949595
при х=6 ,а a=5 f(x,a) = 11,2506930368699
при х=6 ,а a=6 f(x,a) = 13,5008316442439
при х=6 ,а a=7 f(x,a) = 15,7509702516179
при х=7 ,а a=1 f(x,a) = 0,978345811793987
при х=7 ,а a=2 f(x,a) = 1,95669162358797
при х=7 ,а a=3 f(x,a) = 2,93503743538196
при х=7 ,а a=4 f(x,a) = 3,91338324717595
при х=7 ,а a=5 f(x,a) = 4,89172905896993
при х=7 ,а a=6 f(x,a) = 5,87007487076392
при х=7 ,а a=7 f(x,a) = 6,84842068255791