№2 Даны основания равнобедренной трапеции и угол при большем основании. Найти площадь трапеции и ее периметр №3 цифры данного четырехзначного числа N образуют строго возрастающую последовательность №7 дано натуральное n.Вычислить S=1-1/2+1/4-1/8+...+(-1)n*1/2n n-все в степени №8 В диапазоне от N до M вывести числа, сумма цифр которых равна самому числу
Artem7
21.04.2012 17:45
№8
Program Summa_zifr; Var a,b,i,n,s1,s2,j:integer; Function Summa(n:integer):integer; Var s:integer; Begin s:=0;j:=0; While n<>0 do Begin s:=s+(n mod 10); n:=(n div 10); End; Summa:=s; End; Begin write('Введите число N= ');readln(N); write('Введитен отрезок [A,B] ');readln(A,B); s1:=Summa(N); For i:=A to B do Begin s2:=Summa(i); if s1=s2 then Begin write(i:4);inc(j); end; s2:=0; End; writeln; if j<>0 then writeln('Всего таких чисел ',j) else writeln('На данном отрезке нет таких чесел'); readln; End.
№2
program trapeziy; var h,ug,a,b,x,s,p:real; begin write('Ввидете а ');readln(a); write('Введите b ');readln(b); write('Введите угол ');readln (ug); x:=(a-b)/2; h:=x*sin(ug)/cos(ug); s:=(a+b)*(a-b)/4*sin(ug)/cos(ug); p:=a+b+a+b; writeln('Площадь s=',s:0:3); writeln('Периметр p=',p:0:3); readln; end.
Lapp
22.04.2012 11:31
М
Артем, извини, но ЭТОТ РАЗДЕЛ не для публикации решений!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.