Вариант 6 1. Определить, имеется ли среди цифр натурального числа N хотя бы одна единица.

2. Вычислить сумму ряда с погрешностью в окрестности точки ноль, то есть при :

3. Вычислить значение выражения:

4. Числа Фибоначчи определяются формулами:

Вычислить сумму всех чисел Фибоначчи, которые не превосходят заданного целого числа m.

5. Дано натуральное число k. Напечатать k-тую цифру последовательности: 12345678910111213…, в которой выписаны подряд все натуральные числа.

6. Дана последовательность из целых чисел, которые вводятся по одному. За последним числом вводится нуль. Найти два наименьших числа последовательности.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

uses graphabc;

type fun = function (x: real): real;

function f(x: real): real; begin f: =0.5*x*cos(2*x); end;

// l (logical) - логические координаты// s (screen) - координатыprocedure drawgraph(x1,x2,y1,y2: real; f: fun); var xl,xl0,wl,yl,yl0,hl: real; xs0,ws,ys0,hs: integer; function ltosx(xl: real): integer; begin result: =round(ws/wl*(xl-xl0)+xs0); end; function ltosy(yl: real): integer; begin result: =round(hs/hl*(yl-yl0)+ys0); end; function stolx(xs: integer): real; begin result: =wl/ws*(xs-xs0)+xl0; end; var xi: integer; begin // drawgraph xs0: =0; ys0: =windowheight; ws: =windowwidth; hs: =windowheight; xl0: =x1; yl0: =y1; wl: =x2-x1; hl: =-(y2-y1); moveto(xs0,ltosy(f(stolx(; for xi: =xs0+1 to xs0+ws do lineto(xi,ltosy(f(stolx(; end;

begin // program setwindowcaption('график функции'); drawgraph(-12,12,-23,23,f); end.

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

(1010,01)16=1*16^3+0*16^2+1*16+0+0*16^(-1)+1*16^(-2)=4112,00390625

(f001)16= 15*16^3+1=61441