Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
daryankaa1
07.06.2023 06:00 •
Информатика
Склавиатуры вводится последовательность целых чисел, оканчивающаяся нулем. найти количество отрицательных чисел и сумму чисел кратных 4.
Показать ответ
Ответ:
abiersack
28.09.2020 12:06
Var
x, s, count: longint;
begin
x := 1;
s := 0;
count := 0;
while x <> 0 do
begin
read(x);
if x < 0 then
inc(count);
if x mod 4 = 0 then
s := s + x;
end;
writeln(count, ' ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Lila08564
11.02.2022 22:02
сделать 190, 191 номер....
Мганвплмппррнвпол
05.10.2022 12:09
Вычислить факториал числа N (5!)...
darya03fox04
24.09.2020 05:18
даны катеты в двух прямоугольных треугольниках – a1, b1 и a2, b2. определить, площадь какого треугольника больше и на сколько. если площади равны, вывести фразу – «треугольники...
vadyushasergee2
13.07.2022 14:37
Напишите программу которая это вычисляет...
cheburek20
23.11.2022 16:59
Сопоставьте элементы таблицы и их значения. 1)Служит для записи названий строк.2)Служит для записи названий столбцов.3)Включает в себя сведения, относящиеся к головке и...
siraevadiana
05.12.2022 15:40
ИНФОРМАТИКА 8 КЛАСС ...
katyaarxipova
24.04.2020 10:01
Эпитеты в стихотворении и.с.никитин в синем небе плывут над...
Наполнение
24.04.2020 10:01
Расставьте запятые в этом тексте: мне вчера друг рассказал про охотника и его собаку. оказывается в конце октября лучше всего ходить на охоту с гончей. он сказал что у...
Ням1111
24.04.2020 10:01
Что означает выражение ,,сгинули аки обры...
Зарема951
24.04.2020 10:01
Прочитайте текст. какова его основная мысль? спешите, расставляя пропущенные запятые и вставляя буквы. составе схемы предложений...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x, s, count: longint;
begin
x := 1;
s := 0;
count := 0;
while x <> 0 do
begin
read(x);
if x < 0 then
inc(count);
if x mod 4 = 0 then
s := s + x;
end;
writeln(count, ' ', s);
end.