Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lapshinauly
30.01.2023 20:26 •
Информатика
Склавиатуры вводится последовательность чисел необходимо их сумировать пока не будет введено число кратное 2.результат вывести на экран. заранее
Показать ответ
Ответ:
Dashka6969
05.10.2020 01:24
Program v;
Var a,b:integer;
BEGIN
a:=1;
While (a mod 2 <> 0) do begin
readln (a);
if (a mod 2 <> 0) then
b:=b+a;
end;
writeln (b);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
SaminaR
06.10.2022 04:48
Решение задач с использованием операторов цикла. Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся...
Wertik3
04.04.2022 12:30
Схема 1 1. Проверь свою наблюдательность. Какую информацию ты получаешь, рассматривая рисунок 5? (км) 20 Рис. 5. Сбор яблок 2. Запиши в таблицу любой предмет, изображенный...
хорошист549
21.09.2022 02:31
Что из ниже перечисленного не является основой формирования информационной культуры? принцип узкой специализацииумение ориентироваться в информационных потокахзнания...
idiotizROSSII
01.07.2021 11:56
Пользователем введена строка, состоящая из латинских букв. подсчитайте сколько раз в строке встретилось слово cat ....
Mew3200
12.01.2020 08:36
Подскажите тему для презентации(можно не по информатике)...
TonyaOgneva
31.12.2021 23:43
Вданном вопросе речь идет об одной из старейших пьес театра, ее автором стал уроженец города мерзебург. пьеса была написана по указу царя из династии романовых, который...
OppLeech
04.08.2020 12:41
Нужна по информатике. заранее !...
Kiss1009
26.07.2022 18:00
Вычислить площадь прямоугольника по координатам вершин pascal....
Zheka645567
22.08.2022 19:04
Какой тип файлов наиболее широко используют в интернете?...
Irishagogo
22.08.2022 19:04
Найдите угол правильного n-треугольника, если: 1)n=3; 2)n=4; 3)n=6; 5)n=6)n=18...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b:integer;
BEGIN
a:=1;
While (a mod 2 <> 0) do begin
readln (a);
if (a mod 2 <> 0) then
b:=b+a;
end;
writeln (b);
END.