Консультация № 139430
07.06.2008, 12:10
0.00 руб.
0 1 1
Здравствуйте! Очень прошу помочь,у друга сейчас экзамен и надо выполнить задание:написать программу для ввода последовательности чисел, в которой 0 - конец последовательности. Подсчитать сколько в ней отрицательных чисел.

P.s. Заранее благодарен!!

Обсуждение

Неизвестный
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.
Форма ответа