IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Перечень лабораторных работ по дисциплине «информатика и икт» для специальности «компьютерные сети и комплексы», лабыпо инфе помогите!!!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


№2
Даны основания равнобедренной трапеции и угол при большем основании. Найти площадь трапеции и ее периметр
№3
цифры данного четырехзначного числа N образуют строго возрастающую последовательность
№7
дано натуральное n.Вычислить
S=1-1/2+1/4-1/8+...+(-1)n*1/2n
n-все в степени
№8
В диапазоне от N до M вывести числа, сумма цифр которых равна самому числу

Сообщение отредактировано: GANGSTER96 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  0  +


№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.


Сообщение отредактировано: Artem7 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


М
Артем, извини, но ЭТОТ РАЗДЕЛ не для публикации решений!



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 17:12
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name