Составьте программу на языке BASIC.
1. Высчитать площадь трапеции если известны высота, верхнее основание и разность между основаниями.
2. Компьютер здоровается с человеком, узнает его имя и. обращаясь по имени, сообщает, что сегодня - выходной.
3. Вычислить площадь треугольника по трем сторонам (формула Герона).
4. Вычислить время падения кирпича в секундах с крыши дома, если известны высота дома в метрах и, ускорение свободного падения

используем рекурентную формулу, чтобы программу

а[n+1]=1/4

a[n]=1/2

t=(1/4)/(1/2)=1/2

a[n+1]=a[n]*1/2

program;

var  n: integer; abs,s,a: real;

begin

a: =1;

eps: =1;

s: =1;

repeat

a: =a*1/2;

abs: =abs(a);

s: =s+a;

until abs< 0.001;

writeln(s);

end;

//на vs 2010 решается так, в других средах разработки может нужно к заголовкам добавить .h или убрать подключение пространства имен std : (console application)

#include < iostream> #include < stdlib.h> #include < time.h> #include < conio.h> using namespace std; void print(int m, int ** matr)  // функция печати матрицы на экран{ for(int i = 0; i< m; i++) { for(int j = 0; j< m; j++) { cout.width(4); cout< < matr[i][j]; } cout< < endl; }}void search_and_print(int x, int **m) //функция поиска элементов с их сортировкой и выводом на экран{ int razmer = ((x*x) - x)/2; int *mas = new int [razmer]; int y = x - 1; float srednee = 0; int index = 0; for (int j = 0; j< y; j++) { for(int i = 0; i< (x-1); i++ ) { mas[index] = m[i][j]; index++; } y--; } for(int i = 0; i< (razmer-1); i++) //сортировка методом выбора. x-1 раз ищем наименьший элемент. { //принимаем за наименьший первый элемент из расматриваемых: int min = i; //поиск минимального элемента из : for(int j = i+1; j< razmer; j++) { //если нашли меньший элемент, запминаем его номер: if(mas[j]< mas[min]) min = j; } //обмен элементов: int a = mas[i]; mas[i] = mas[min]; mas[min] = a; } cout< < "\nuporyado4enniy massiv: \n"; //вывод и суммирование элементов отсортированного массива для среднего for(int i = 0; i< razmer; i++) { cout< < mas[i]< < ends; srednee += mas[i]; } //поиск арифметичесгоко реднего} srednee = srednee/razmer; cout< < "\nsrednee: "< < srednee; delete [] mas; }void main(){srand ((unsigned)time(null)); int x; cout< < "vveditrazmer matritsi po gorizontaly i po vertikaly: \n"; cin> > x; int** matr; matr = new int* [x];     //безопасный способ for(int i = 0; i< x; i++)  // динамического {  matr[i] = new int[x]; // двумерного массива. for(int j =0; j< x; j++)  //заполняем матрицу {      matr[i][j] = rand()%10-5; } //числами от -5 до 5 } cout< < "ishodnaya matritsa: \n"; print(x,matr); search_and_print(x,matr); _getch(); delete [] matr; }

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.