Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kdortskaya55
06.01.2023 12:25 •
Информатика
Склавиатуры вводится последовательность целых чисел, оканчивающаяся нулем. найти количество отрицательных чисел и сумму чисел кратных 4.
Показать ответ
Ответ:
дартячтчтт
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 оценок)
Популярные вопросы: Информатика
Sasha000000000001
18.11.2022 13:00
Составьте в паскале программу для вывода всех чисел в диапазоне [-100; 100] кратных 3....
Зайченок157895
15.08.2020 23:21
Ребус на тему информатика не из интернета,...
fasefasefaceface
30.06.2021 06:44
Все решите любые 3 только в степени двойки!...
Karinavalitova1
15.04.2020 17:24
Дано трёхзначное число. напишите программу, которая определяет: является ли число перевёртышем , т.е. числом, десятичная запись которого читается одинаково слева направо...
kasoimandarin1
31.12.2021 20:39
Разобрать предложение по составу. зелень чуть-чуть показала носик и недоверчиво готова завернуться опять в свои почки....
LonelyOne
31.12.2021 20:39
Укажите склонение всех существительных 7) идёт по шоссе колонна. 14) тем временем бескончин стал шухер в колонне наводить....
DaryaKovalkina
31.12.2021 20:39
Вычеслите: 666666×666666 1+2+3+4+5+6+5+4+3+2+1...
aman196oyl319
31.12.2021 20:39
Самый эффективный восстановления организма человека является 1)закаливающие процедуры 2) занятия 3) обильное питание...
katenkaklimcuk
31.12.2021 20:39
5-10 пример развитых и развивающихся стран?...
dimasikPro2
31.12.2021 20:39
Какую массу соли можно получить упариванием 200г 15%ного раствора этой соли...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.