Вводится последовательность ненулевых чисел; 0 - конец последовательности. Посчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.
10-11 класс
|
var x,s,n:integer;
BEGIN
repeat
read(x);
if x<0 then n:= n +1;
if x >0 then s:=s+x;
until x=0;
writeln(n,s);
END.
Другие вопросы из категории
Сколько кбайт памяти потребуется чтобы сохранить 128 стр текста содержащего в среднем 256 символов на каждой стр
С решением пожалуйста
1. Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1•3•...•N; если N — четное, то вывести произведение 2•4•...•N.
2. Вывести на экран таблицу значений функции x2 на отрезке[0,1] с шагом 0.1.
единицей информации в WWW? 3.Сопоставьте структуру полного имени файла (адреса файла) на автономном компьютере и URL-адрес в сети. Отметьте сходство и различие.
4.Обоснуйте необходимость существования поисковых служб в Интернете.
5.В чем различие между поисковыми каталогами и поисковыми указателями? 6.Какую работу выполняют роботы (пауки) поисковых машин?
клавиатуры.Вычислите площадь прямоугольника. 2)С клавиатуры вводится натуральное число.Если оно кратно двум,напишите "четное число",иначе напишите "нечетное число".
Читайте также
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности. Ниже представлен рекомендуемый вид экрана во время работы программы:
*Обработка последовательности дробных чисел*
После ввода каждого числа нажмите <Enter>
- > 12.3
Введено чисел: 1 Среднее арифметическое: 12.30
- > 15
Введено чисел: 2 Среднее арифметическое: 13.65
- > 10
Введено чисел: 3 Среднее арифметическое: 12.43
Задание
Вводится последовательность целых чисел, 0 – конец последовательности.Для каждого числа последовательности проверить, представляют ли его цифры строго возрастающую последовательность, например, 1234(результатом функции будет 1 – Да, 0 - НЕТ).
Задание
Вводится последовательность целых чисел, 0 – конец последовательности.Для каждого числа последовательности проверить, представляют ли его цифры строго возрастающую последовательность, например, 1234(результатом функции будет 1 – Да, 0 - НЕТ).