Подсчитать сумму всех положительных чисел, введенных с клавиатуры и произведение всех отрицательных, до тех пор пока не будет введен 0 с клавиатуры.
Ксения Шагабаева Вопрос задан 1 октября 2019 в Информатика, true»> Поделиться
1 Ответ (-а, -ов)
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
(var s,var p):=(int64(0),BigInteger(1));
foreach var x in ReadSeqIntegerWhile(k->k<>0) do
if x>0 then s+=x
else p*=x;
Writeln(‘S=’,s,’, П=’,p)
end.
Пример
24 -15 -42 18 35 -14 7 0 12 -206 138 -232 0
S=84, П=-8820
Замечание: числа 12 -206 138 -232 0 после нуля введены намерено, чтобы показать, что отсечение приема данных происходит по первому нулю.
Валентин Гамолкин Отвечено 1 октября 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru
Excel: Как изменить отрицательные числа на положительные и наоборот (минусовые на плюсовые значения)
Изменить программу так чтобы была найдена сумма всех положительных чисел
1. Написать программу, находящую все четные числа от нуля до n (n вводится с клавиатуры)., 2. Изменить программу так, чтобы выводились на экран нечетные числа. , 3. Дополните программу так, чтобы определялась сумма всех нечетных чисел от 1 до n., Отладка: , Введите число, 12, Нечетные числа: , 1 3 5 7 9 11 Сумма=36, Введите число, 37, Нечетные числа: , 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 Сумма=361, , 4. Напишите программу, которая требует у вас пароль, например 111. Если пароль правильный, то выводит сообщение «Молодец». Если после пятой попытки пароль все равно неверен, выводит сообщение «Карта заблокирована».
3 (5 оценок)
Marik2503 6 лет назад
Светило науки — 10 ответов — 0 раз оказано помощи
Program prim;
var n,i,k: integer;
writeln (‘Введите число n’, n);
for i:= 0 to n do
if (i mod 2=0 ) then k:=i;
Источник: vashurok.com
Написать программу
Найди верный ответ на вопрос ✅ «Написать программу Пользователь вводит 5 целых чисел, программа находит сумму всех отрицательных и произведение всех положительных чисел . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
1 Функция СУММЕСЛИ в excel (SUMIF)
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Написать программу Пользователь вводит 5 целых чисел, программа находит сумму всех отрицательных и произведение всех положительных чисел
Источник: urokam.net