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

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

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

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

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

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

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


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



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

[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.

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

[arhimag]

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

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

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

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