складіть математичну модель і блок схему алгоритму обчислення значення виразу : (a+b)-b/(2*a-1).Виконайте його при різних значеннях a i b .Підберіть числа так , щоб кожного разу виконання алгоритму відбувалося по іншому .
uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.
1.первое число - целочисленный тип второе - вещественный разные диапазоны 2.1) s := (x1+x2)/2 2) dec(k) или k:=k-1 3) inc(i) или i:=i+1 4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)
2. а) значения функции y=х(в квадрате) var y,x: real
б) площади прямоугольника var a,b,s: real
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек var kv:integer; st,so,sum: real
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей var kvt,kvr,kvk:integer; st,sr,sk,sum: rea
