Сумма цифр, сумма элементов последовательности, ДВЕ несложные задачи Опции

[блондиночка]

Помогите пожалуйста,
до завтра надо решить эти проклятые задачи, а я не сильно рублю в паскале......((((

я думаю для некоторых они будут несложными....

1) Написать программу поиска двузначных чисел, обладающих св-вом: если к сумме цифр чсла прибавить квадрат этой суммы то получится снова данное число. результат вывести на экран

2)операторы цикла с постусловием

дана непустая последовательность натуральных чисел за которой следует 0. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны. результат вывести на экран.


кто поможет тому (заранее) огромные СПАСИБКИ!!!!, хотябы часть какую-нить напишите, помогите блондинке....



Сообщение отредактировано: klem4 - 15.05.2007 18:21

[klem4]

М

Советую очень внимательно прочитать правила форума и изменить название темы, иначе она будет закрыта.

[Гость]

а как?


и на что изменить?



и где правила?

[klem4]

Чтобы ты могла изменять свои сообщения, надо зарегистрироваться: http://forum.pascalnet.ru/index.php?act=Reg&CODE=00


Правила: http://forum.pascalnet.ru/rules.html

Сообщение отредактировано: klem4 - 15.05.2007 18:11

[nikki]

слушай я все-равно не понм=иаю как я терь могу изменить эту тему(((((((




моть ты сам поменяешь? на название типа постусловие или подобное этому.......

СПАСИБО БОЛЬШОЕ))))) Осталось только решение найти ((((((

Сообщение отредактировано: nikki - 15.05.2007 18:22

[klem4]

Сделано ... Воспользуйся поиском, похожие задачи решались.

[nikki]

Сделано ... Воспользуйся поиском, похожие задачи решались.

спасибо, сейчас попробую)))

но пишите кто че знаед!!!!!))))) всем всем всем СПАСИБОЧКИ!!!!!!

Добавлено через 6 мин.
ничего не найти неудобный у вас ПОИСК , слушай модер klem4 а ты рубишьв паскале? слушай помоги пожалуйста, аиначе учитель по инфе завтра 2 в полугодии поставит, и усе тогда((((

[arhimag]

задача №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 - 15.05.2007 19:02

[nikki]

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.

ты знаешь что ты написал чужь даже я понимаю что это неправильно , прочитай повнимательней саму задачу, типа надо чтоб она сама нашла сразу все двузначные числа с этим св-вом и вывела их на экран!!!!! поправь, напиши нормально ПЛЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[klem4]

nikki

Задача решена верно ...

[arhimag]

ты знаешь что ты написал чужь даже я понимаю что это неправильно , прочитай повнимательней саму задачу, типа надо чтоб она сама нашла сразу все двузначные числа с этим св-вом и вывела их на экран!!!!! поправь, напиши нормально ПЛЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Уважаемая nikki, не могли бы ли вы просветить меня, где программы моего предыдущего поста работают не правильно?
P.S.

6. Одна тема - один вопрос (задача)

Сообщение отредактировано: arhimag - 15.05.2007 19:06

[volvo]

nikki Ты бы СНАЧАЛА внимательно всмотрелась, в то, что тебе предложили, а потом уже показывала свои знания языка... Что, если выложили все, что тебе нужно - можно уже всем гадости говорить?

[nikki]

ты её проверял? она нашла три числа(12, 42, 90) ??????????



и никого я не обсираю

Сообщение отредактировано: nikki - 15.05.2007 21:15

[Айра]

ты её проверял? она нашла три числа(12, 42 ...) ??????????

А сколько их, по-твоему, должно быть? Таких чисел всего три (12, 42, 90), так что программа работает правильно..

Сообщение отредактировано: Айра - 15.05.2007 21:04

[Не очень умная блондиночка]

Здравствуйте, напишите пожалуйста программку нахождения факториала...

[мисс_граффити]

Здравствуйте, Не очень умная блондиночка!
Пожалуйста, не надо создавать сообщения с новым вопросом в чужих темах.
Функции для нахождения факториала выкладывались не раз, воспользуйтесь поиском.

Кроме того, не стоит создавать несколько аккаунтов. Один из них все равно будет удален (определяйтесь с цветом волос и говорите, какой...)

Сообщение отредактировано: мисс_граффити - 15.05.2007 21:12

[Не очень умная блондиночка]

Здравствуйте, Не очень умная блондиночка!
Пожалуйста, не надо создавать сообщения с новым вопросом в чужих темах.
Функции для нахождения факториала выкладывались не раз, воспользуйтесь поиском.

Кроме того, не стоит создавать несколько аккаунтов. Один из них все равно будет удален (определяйтесь с цветом волос и говорите, какой...)

Оставьте пожалуйста это аккаунт, а тот удалите...больше не буду нарушать правила...