Сумма цифр, сумма элементов последовательности, ДВЕ несложные задачи |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сумма цифр, сумма элементов последовательности, ДВЕ несложные задачи |
блондиночка |
Сообщение
#1
|
Гость |
Помогите пожалуйста,
до завтра надо решить эти проклятые задачи, а я не сильно рублю в паскале......(((( я думаю для некоторых они будут несложными.... 1) Написать программу поиска двузначных чисел, обладающих св-вом: если к сумме цифр чсла прибавить квадрат этой суммы то получится снова данное число. результат вывести на экран 2)операторы цикла с постусловием дана непустая последовательность натуральных чисел за которой следует 0. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны. результат вывести на экран. кто поможет тому (заранее) огромные СПАСИБКИ!!!!, хотябы часть какую-нить напишите, помогите блондинке.... Сообщение отредактировано: klem4 - |
arhimag |
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 424 Пол: Мужской Репутация: 2 |
задача №1
Код var a, b : integer; begin for a:= 1 to 9 do for b:= 0 to 9 do if (a+b+(a+b)*(a+b))=a*10+b then writeln(a,b); readln; end. задача №2 Код var a, b, i : integer; begin b:=0; i:=1; repeat readln(a); if ((i mod 2)=1) and (a>0) then inc(b,a); inc(i); until a=0; write(b); readln; end. Цитата слушай модер klem4 а ты рубишьв паскале? Думаю, он "рубит в паскале", лучше твоего препода Цитата ничего не найти неудобный у вас ПОИСК Не поиск не удобный, а ты искать не умеешь не обижайся. Сообщение отредактировано: arhimag - -------------------- Чего хочет женщина – того хочет Бог
|
Текстовая версия | 25.04.2024 14:37 |