Помогите решить задачу. Массивы.
|
|
Помогите пожалуйста, очень нужно. Дано число n, вывести на экран обратное ему число, например дано число 987, вывести нужно 789, реальзовать эту задачу с помощью массива. Я никак не пойму как это сделать, я решила эту задачу так: program task_5; uses crt; var i,j:integer; n:longint; k,m:string; BEGIN clrscr; write ('n='); readln(n); str(n,k); str(n,m); j:=length(k); for i:=1 to j do begin m[i]:=k[j]; j:=j-q; end; writeln ('massiv: ', m); readln END. Только это нужно реализовать через массив. ПОЖАЛУЙСТА, НИПИШИТЕ ТЕКСТ ПРОГРАММЫ.
Миром правят числа и их соотношения...
|
|
|
Что значит через массив - число то одно. Поясните для чего массив. Вообще-то это делают так: формируют новую строку - пустую (присваивают s:=''). Число преобразуют в строку, а потом цикл убывающий от последнего к первому и поэлементно добавляют к s, то что считывается. Полученную строку опять в число преобразуют.
|
|
|
помогите решить задачу по прогромированию найти периметр равнобедренного треугольника если известна его боковая сторона и высота опущенная к основанию
№ 3 | Автор: stail |
2008-12-12, 10:51
--------->
|
|
|
Тебе нужна только одна формула для вычисления периметра. Пусть боковая сторона равна "а", а высота равна "h". Тогда третья сторона (основание) может быть вычислена по теореме пифагора Вот твоя Програмка на Паскале. ========================================== var A,H,P:real; begin write('A= ');read(A); write('H= ');read(H); P:=2*A+2*sqrt(A*A-H*H); writeln('P=',P); end.
|
|
|
ludi pomogite reshit6 zadachu ochen6 nado Даны натуральное число n, символы s1,....,sn.Определить число вхождений в последовательность s1,...,sn группы букв: aba [color=yellow]
№ 5 | Автор: rocket |
2009-01-02, 17:16
--------->
|
|
№ 5 | Автор: rocket |
2009-01-02, 17:16
--------->
|
|
|