Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mehan2018
23.02.2023 14:05 •
Информатика
Перевод программы с pascal на qbasic решение: var a, s: integer; begin s: = 0; readln(a); while a< > 0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s : = s + a; readln(a); end; writeln(s) end.
Показать ответ
Ответ:
Evg120058
17.09.2020 14:47
DIM a AS INTEGER, s AS INTEGER
s = 0
INPUT a
DO WHILE a <> 0
IF (a MOD 6 = 0) AND (a MOD 10 = 4) THEN
s = s + a
END IF
INPUT a
LOOP
PRINT s
0,0
(0 оценок)
Популярные вопросы: Информатика
albinatoleuhaa
30.09.2020 19:58
Очень нужна Нужно дополнить код(На Python). ЗАДАНИЕ: Устройте несколько дуэлей подряд и выведите результаты (Их можно хранить в словаре). В награду за победу персонажу...
sofiiishtepa
27.05.2023 12:08
Реши задачу с кругов Эйлера За Найдено страниц (в тысячах) Клубника l Малина - 20 000 Клубника - 14 000 Малина -16 000...
romafomin15рома
10.06.2021 01:00
Для группы студентов по результатам сессии определить размер начисляемой стипендии. Если сессия сдана на «отлично», то начисляется стипендия в размере 200%, если есть...
12345678901456619353
03.09.2022 03:43
Составить программу вычисления функции на паскале АВС.NET на заданных промежутках и с заданным шагом h. x∈[0,π] h=π/8 Используя var, const, writeln и т.д....
Tiger333
12.02.2022 06:29
В этом году при поступлении в университет абитуриентам требовалось успешно сдать экзамены по математике и физике. К сожалению, с этим испытанием справились не все....
Vageha356
09.05.2021 13:55
3. Переведите десятичное число 33,15 в двоичную систему счисления (с точностью до 3-х знаков). Объясните порядок перевода....
Daniela04102005
12.10.2022 02:05
Заполните таблицу, напишите действия указанных операторов: № Функция(оператор) Назначение функции(оператора) 1. MID$(S$,N1,N2) 2. LEN(‘STROKA’) 3. IF…THEN…ELSE 4. FOR...
Lolikalkogolik
19.05.2021 08:36
1)в ячейке А4 записана формула А1 * 2 - А2 * 3 + сумм(В1:В3). какое значение окажется в этой ячейке?2) в ячейке a4 записана формула суммпроизв (А1:А3:В1:В3). какое...
yaxyeu
09.12.2020 12:27
Задача 1. Отвечая правильно на во теста, ученик получил 2 бита информации. Сколько вариантов ответа у тестового задания? Задача 2. Книга, набранная с компьютера, содержит...
Леночка177
23.12.2021 06:25
Дана последовательность целых чисел. Определите является ли произведение элементов трехзначным числом (задачу решить в паскале двумя используя одномерный, а затем двумерный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s = 0
INPUT a
DO WHILE a <> 0
IF (a MOD 6 = 0) AND (a MOD 10 = 4) THEN
s = s + a
END IF
INPUT a
LOOP
PRINT s