На вход даются числа.Признак ввода число 0.Найдите количество чисел,которые меньше 1000

На вход даются числа.Признак ввода число 0.Найдите количество чисел,которые меньше 1000

Задать свой вопрос
1 ответ

var a,k:integer;

begin

repeat

write ('Введите число: ');

readln (a);

if (alt;1000) and (alt;gt;0) then k:=k+1

until a=0;

writeln ('Количество чисел, меньше 1000, равно: ',k)

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт