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

[Juhn]

Доброго времени суток !
Условие: дано 2 натуральных числа a и b, притом a<b. Найти их сумму, среднее арифметическое, количество чисел. Использовать нужно цикл Repeat - Until, While - Do.
Может кто - то помочь с написанием этой программы в паскале ? Очень нужно.
Спасибо заранее.

[proglamer]

а зочем цикл?

program hz;
var 
a,b :longint;
begin
write('Первое число:'); readln(a);
write('Второе число:'); reabln(b);
if a<b then write('a<b');
          else write('A>b');
writeln;
writeln('A + B = ',a+b);
Writeln('Среднее арифметическое: ',a / 2 + b /2);
end.

имхо ты штот напутал с задачей)

[puporev]

Сумма = a+b;
Ср. ар = (a+b)/2;
Количество чисел = 2;
Разберись с заданием и правильно его напиши.

[Juhn]

Да это я понимаю, но мне сказали что нужно именно использовать эти циклы, а как с ними я не знаю как код записать :/ И я немного ошибся, нк кол-во чисел, а цифр, например если а = 4, б=6, кол-во цифр будет 2, будет считаться при а =4 и при а=5.

[begemotikdin]

здесь нужно просто найти разницу м-у этими цифрами и всё.
и прыгать от кол-ва этих цифр. И в цикле уже находить сумму, и далее уже сред. ариф. Вот и всё.
Удачи в решении задачи!!!

[Juhn]

Для суммы наверное надо считать не в цикле, а отдельно, так же как и ср. арифметическое (а+б/2), в цикле же нужно что бы он посчитать результат, при а и б. Только вначале он должен запросить введите а и б, и затем в зависимости от этих чисел в цикле должен посчитать ответ подставляя каждый раз вместо а на 1 больше, начиная с того числа которые ввели изначально, и до тех пор пока а будет < чем б. А вот после этого цика уже нужно использовать какой - то другой код, для сложения всех етих полученных результатов, тоесть нахождение суммы. Ну и нужен код для вычисления арифметического чисел а и б, как я понимаю тех, которые мы вводили изначально. И потом уже другим наверное кодом, он должен посчитать кол-во цифр, в зависимости какие были а и б, например если а=4, б=6, то кол-во цифр 2, так как он подставлял а=4 и а=5, а=6 это уже а неменьше чем б получается, значит не нужно. Вот что нужно, помогите подалуйста, не знаю как это написать, как я вижу программа не маленького размера должна получиться, так как много чего нужно находить. Но может кому - то не трудно это сделать, а то я не имею представления как её написать :/ Пожалуйста помогите.

[begemotikdin]

надеюсь поможет
если что пиши

[Juhn]

Спасибо за програмку, но не знаю что такое, компьютер запрашивает числа а и б, я их ввожу и программа сразу же закрывается. readln; прописал, не помогло..

[begemotikdin]

а компилируется без ошибок

аааааааааааа
добавь выводы результатов суммы и сред.ариф.
я их забыл написать

[Juhn]

тоесть команды readln ?
Всё равно не работает