|
|
| Другие темы раздела | |
| Free Pascal Найти среднее геометрическое чисел матрицы, больших 15 uses crt; const M=6;N=4; type stroka=arrayof real; matr=arrayof stroka; stolb=arrayof real; var x:matr;b:stroka;sr:stolb;p,g:real;i,j,k:integer; begin writeln('vvedite matricu'); for i:=1 to M do for j:=1 to N do https://www.cyberforum.ru/ free-pascal/ thread57972.html |
Free Pascal Найдите на оси Ох такую точку, чтобы суммы расстояний от неё до заданных двух была минимальной Найдите на оси Ох такую точку, чтобы суммы расстояний от неё до заданных двух точек на плоскости была минимальной ВВод х1 y1 x2 y2 Вывод абсцисса искомой точки= |
| Free Pascal Вычислить сумму ряда с заданной точностью Вычислить бесконечную* сумму с заданной точностью e (e>0).* Счи- тать,* что требуемая точность достигнута,* если* вычислена* сумма нескольких* первых* слагаемых* и очередное слагаемое оказалось по модулю меньше, чем e, - это и все последующие слагаемые можно уже не учитывать. Вычислить: \sum_{i=0}^{\infty}\frac{\left(-2 \right)^i}{i!} https://www.cyberforum.ru/ free-pascal/ thread57790.html | Free Pascal Найти наибольшее из значений первой и последней строк матрицы Дана действительная квадратная матрица порядка n. найти наибольшее из значений первой и последней строк. uses crt; var a:array of integer; n,m,k,l,i,j,x,max:integer; begin clrscr; randomize; write('Количество строк n='); readln(n); https://www.cyberforum.ru/ free-pascal/ thread57760.html |
|
Найти минимальное четное число главной диагонали Free Pascal PROGRAM PR25; uses crt; const n=5; type raz=1..N; matr=array of integer; var a:matr; p,s1,s2,j,j,min:integer; begin clrscr; for i:=1 to n do begin writeln('vvedi ',N,' chisel ',I,'-go ryada'); for j:=1 to N do read(a); end; |
Free Pascal Как вызвать процедуру по адресу?
https://www.cyberforum.ru/ free-pascal/ thread57707.html Как можно вызвать процедуру по адресу ? Есть ли еще способы вызова процедур |
|
Free Pascal Выяснить, верно ли, что n^2 равно кубу суммы числа n
https://www.cyberforum.ru/ free-pascal/ thread57703.html program rgr65; uses crt; const h=10; var n:arrayof integer; z,k,b:integer; begin clrscr; writeln('please insert Z'); for z:=1 to 10 do begin readln(z); end; |
Free Pascal Верно ли что все члены последовательности a входят в последовательность b Даны натуральное число n,целые числа a,...,a,b,...,b.Среди a,...,a нет повторяющихся чисел,нет их и среди b,...,b.Верно ли что все члены последовательности a,...,a входят в последовательность b,...,b. Вобщем,помогите решить,я не совсем понимаю как его сделать,то есть вообще не понимаю. |
|
Free Pascal Написать процедуру пользователя для вычисления: a2+b3, где a=с1+c2+c3+..+cn; b=cn+1+cn+2+cn+3+..+c2n
https://www.cyberforum.ru/ free-pascal/ thread57551.html Дана целочисленная последовательность элементов c1, c2, c3, ..., c2n, где n<=10. Написать процедуру пользователя для вычисления: a2 + b3, где a = c1+ c2 +c3 + ... + cn; b = cn+1+ cn+2 +cn+3 + ... + c2n. помогите плз.. |
Free Pascal Вычислить значение выражения
https://www.cyberforum.ru/ free-pascal/ thread57517.html program rgr115v; uses crt; var k,n: integer; x,s: real; begin clrscr; writeln('x='); readln(x); n:=10; S:=1; for k:=1 to n do begin |
|
Ср.геометрическое Free Pascal program LR_7; const M=6;N=4; type stroka=arrayof real; matr=arrayof stroka; stolb=arrayof real; var x:matr;b:stroka;sr:stolb;p:real;i,j,k:integer; begin for i:=1 to 6 do for j:=1 to 4 do writeln('vvedite ',N,' chisla',1,'-go ryada'); |
Free Pascal Получить сумму утроенных нечётных чисел
https://www.cyberforum.ru/ free-pascal/ thread57429.html Дано натуральное число n.Получить сумму тех чисел вида i^3-3in^2+n (i=1,2,...,n),которые являются утроенными нечётными. Помогите пожалуйста:) |
|
0 / 0 / 0
Регистрация: 13.10.2009
Сообщений: 38
|
|
| 0 | |
Напечатать все слова, но если слово нечетной длины, то удалить его среднюю букву - Free Pascal - Ответ 31797223.10.2009, 17:48. Показов 1187. Ответов 2
Метки (Все метки)
очень прошу помогите мне) Вернуться к обсуждению: Напечатать все слова, но если слово нечетной длины, то удалить его среднюю букву Free Pascal
0
|
|
| 23.10.2009, 17:48 | |
|
Готовые ответы и решения:
2
Если слово нечетной длины то удалить его среднюю букву
|
| 23.10.2009, 17:48 | |
| 23.10.2009, 17:48 | |
|
Помогаю со студенческими работами здесь
0
Напечатать все слова, удалив среднюю букву у слов нечетной длины.
Строки. Если слово нечетной длины, то удалить его последнюю букву Если слово нечетной длины, то удалить его среднюю букву
Напечатать все слова, отличные от последнего слова. Если слово нечетной длины, заменить все строчные гласные буквы |