Число....

[eragon_ua]

Здравствуйте... Помогите пожалуйста написать прогу...

Ввести из клавиатуры шестизначное число, определить цифры, которые находится рядом и сумма которых больше заданного числа. Вывести ее.

Тут речь идет именно о 6-и значном числе,а не о массиве. Думал может сделать так :
вводим число (например число а)
а = 123456
в этом числе а1 = 1; а2 = 2; а3 = 3; а4 = 4; а5 = 5; а6 = 6
Потом использовать целочисленное деление... а потом сравнить числа... например, а1 и а2, а2 и а3...

Одним словом - не знаю.... помогите...=)

[Serge_Bliznykov]

Потом использовать целочисленное деление...

это вполне логично.

например, а1 и а2, а2 и а3...

а это - НЕТ!

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

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

Какой вариант выбрать - решать Вам. Мне кажется первый вариант чуть-чуть проще для понимания..

вот, для затравки разложения числа на цифры в массиве:

var A[1..11] of integer; {максимум допускает 11-значное число}
  CntInArray : integer; {сколько цифр в массиве}
  Num : LongInt; {наше исходное число}
  OneDigit : integer;
begin
  CntInArray := 0;
  while Num>0 do begin
      OneDigit := Num mod 10;
      inc(CntInArray);
      A[CntInArray] :=  OneDigit;
      Num := Num div 10;
  end;
  {проверка на нулевое число}
  if CntInArray = 0 then begin
     Inc(CntInArray);
     A[CntInArray] := 0; 
  end; 

всё. Теперь число по одной цифре записано в массив A
количество цифр в числе в переменной CntInArray

[eragon_ua]

Спасибо Вам за решение и советы.
Я еще плохо разбираюсь в программировании, Паскале. И хотел решить без массивов... только с помощью "div" и "mod".. =)

Вот например так.. У меня похожее задание и решение...

Ввести из клавиатуры шестизначное число, определить позицию первой цифры, которая превышает заданную цифру пользователем, и вывести ее.

Program Chislo;
uses crt;
var A,
 a1,a2,a3,a4,a5,a6,h:longint;
begin
     clrscr;
     write('vveditb 6x-znachne chislo=');
     readln(A);
     A:=abs(A);
     write('vveditb chislo vid 1 do 9=');
     readln(h);
     write('zufru chisla A=');
     a1:=A div 100000;
     write(' a1=',a1);
     a2:=A div 10000 mod 10;
     write(' a2=',a2);
     a3:=A div 1000 mod 10;
     write(' a3=',a3);
     a4:=A div 100 mod 10;
     write(' a4=',a4);
     a5:=A div 10 mod 10;
     write(' a5=',a5);
     a6:=A mod 10;
     writeln(' a6=',a6);
     write('pozucija pershogo chusla jake bilshe za h=');
     if a1>h then write('1') else if a2>h then write('2') else if a3>h then write('3')
      else if a4>h then write('4') else if a5>h then write('5')
     else if a6>h then write('6') else write('nema');
     end.

[Летучий_СкилетиК]

Сообщение от eragon_ua

И хотел решить без массивов... только с помощью "div" и "mod".. =)

непонимаю зачем столько мароки?

uses crt;
var x:Longint;
    i, c, n, j, x1, s : integer;
begin
writeln('Заданное число');
readln(s);
writeln('Шестизначное число');
read(x);
n := 5;
c := 1;
for j := 1 to n do
    c := c * 10;
j := x div c;
c := c div 10;
while (n>=1) do
begin
    x1 := j;
    j := (x div c) mod 10;
    if j + x1 > s then writeln(j,' ',x1);
    dec(n);
    c := c div 10;
end;
end.

[eragon_ua]

Летучий_СкилетиК, спасибо большое. Эм.. у меня пишет ошибку " Division by zero". Что-то с делением на ноль или с моим компилятором...=(

[Летучий_СкилетиК]

Сообщение от eragon_ua

у меня пишет ошибку " Division by zero". Что-то с делением на ноль или с моим компилятором...=(

, щас посмотрю
p.s, странно у меня вродибы работает на все тесты.

[Serge_Bliznykov]

разрядности integer не хватает чтобы вместить c = 100000
достаточно c описать как LongInt:

var x, c :Longint;

[eragon_ua]

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

[Serge_Bliznykov]

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

Шутить изволите?!
Вас программа спрашивает два числа - 'Заданное число' и 'Шестизначное число'
Так вот, выводятся не "только те цифры которые рядом" - а те, сумма которых больше заданного числа! (которые Вы вводите первым!)

[eragon_ua]

Извините, извините..
Не полностью разобрался с алгоритмом....