Задачка 4.Напишите программу ,которая в последовательности целых чисел определяет их

Задачка 4.Напишите программу ,которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел,не превосходящих 256.Программка получает на выход целые числа ,количество введенных чисел безызвестно,последовательность чисел кончается числом 0 (0-признак окончания ввода,не заходит в последовательность.)Количество чисел не превосходит 1000.Введенные числа по модулю не превосходят 30 000.Программка должна вывести два числа:длину последовательности и сумму положительных чётных чисел,не превосходящих 256.

Задать свой вопрос
1 ответ
Var x,k:integer; 
begin 
k:=0; 
repeat 
writeln('Введите число'); 
read(x); 
if (xgt;0) and (xlt;=256) then k:=k+1; 
until x=0; 
writeln('Количество положительных чисел lt;=256 = ',k); 
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт