|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуйста написать программы к задачам
1.Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию.
2.Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел. буду очень признателен!) |
#2
|
||||
|
||||
[offtop]Сессия ВНЕЗАПНО пришла в декабре, все высыпали на форумы, чтобы им сделали ДЗ...[/offtop]
Если хотите готовое решение - вперед в раздел "Работа". Если хотите что-то понять или научиться - приложите свои усилия и спрашивайте, что именно не получается. jmp $ ; Happy End! The Cake Is A Lie. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
Konrad (22.12.2011)
|
#3
|
|||
|
|||
Цитата:
Код:
const N = сколько-то-там; var a : array [1..N] of integer; i, value : integer; ....... value := a[N]; for i := N downto 2 do a[i] := a[i-1]; a[1] := value ; Цитата:
Код:
procedure SumDigit(N : integer; var S : integer); begin S := 0; while (N >= 10) do begin S := S + N mod 10; N := N div 10; end; S := S + N; Последний раз редактировалось U.B.M., 22.12.2011 в 17:17. |
Этот пользователь сказал Спасибо U.B.M. за это полезное сообщение: | ||
bogdan-86rus (22.12.2011)
|
#4
|
|||
|
|||
большое спасибо, напишите свой маил в сообщение мне, отблагодарю вас)
|