Помогите пожалуйста написать прогу, математическая задача Опции

[Juhn]

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

[Айра]

Но если подумать зачем дано что а меньше чем б, и сказано что надо использовать цикл ОТ и ДО... ?

наверно вот для этого:

 repeat
    writeln('введите a: ');
    readln(a);
  until a>0;
  repeat
    writeln('введите b: ');
    readln(b);
  until (b>0) and (b>a);

чтобы контролировать правильность ввода a и b..

Сообщение отредактировано: Айра - 24.12.2007 3:43