07.06.2008, 18:27
общий
это ответ
Здравствуйте, Saiks!
Задача с пояснениями в приложении.
Главное в этой прграмме - цикл <b>repeat...until</b>.
Он имеет такой вид:
<b>repeat</b> тело цикла <b>until</b> условие
Тело цикла - произвольная последовательность операторов, которые будут повторятся, пока не выполнено условие
Операторы тела цикла выполняются хотя бы один раз, потом проверяется условие, если оно не выполняется, то тело цикла повторяется, иначе цикл завершает свою работу.
Удачи!!!
Приложение:
var {count-Кол-во отриц чисел, n-число} count, n: integer;begin {Обнуляем кол-во отр. чисел} count:=0; {Пока число не равно 0, повторяем} repeat {Получам число} Write(‘Введите число: ‘); readln(n); {Если оно отр. то увеличиваем счетчик на 1} if n<0 then inc(count); until n=0; {Выводим рез-тат} Write(‘Кол-во отр. чисел: ‘, count); readln;end.