Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Matvey2281337
28.03.2023 13:27 •
Информатика
Напишите программу паскаль 40 найти сумму нечётных чисел кратных 3 которые заканчиваются цифрой 5.
Показать ответ
Ответ:
даша1820065к
08.10.2020 21:09
Var
i,s,n,m:integer;
begin
Write('Количество чисел равно ');
Readln(n);
s:=0;
Writeln('Введите все числа');
for i:=1 to n do
begin
Read(m);
if (abs(m mod 10)=5) and (m mod 3=0) then s:=s+m
end;
Writeln('s=',s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kurotetsu666
08.03.2023 06:05
Если вы хотите зарабатывать 11 процентов годовых на простые проценты от инвестиций, какую сумму инвестиции вы должны вложит, чтобы получить 11 000 долларов через 15 месяцев? Решите...
крыска235
13.12.2022 15:20
Напишите процедуру которая принимает параметр натуральное число N и выводит на экран две линии из N символа. Пример: Длина цепочки: 7...
Wikwsejjj
10.09.2022 00:37
8. что надо написать вместо многоточия, чтобы вывести элементы массива x[1..n] в обратном порядке? в ответе не используйте пробелы. for k: =1 to n do writeln ( );...
ЮлияБогинская
09.03.2020 20:06
решить Браузер Opera произвел перекодировку информационного сообщения на русском языке, первоначально записанного в 16-битном коде Unicode, в 8-битную кодировку КОИ−8. При этом...
dasha1949
01.02.2023 04:06
Ребята, в алгоритме допущена ошибка , или что-то не написано. Найдите ее и напишите алгоритм заново. Буду очень благодарна за...
svpp
29.10.2020 11:04
Дана строка из N символов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащиепробелов внутри себя, будем называть словами.Преобразовать данную последовательность,...
innaalekseenko1
22.12.2022 10:25
Выведены ФИО всех студентов. Что это? 1 выборка 2 проекция 3 смешанный запрос 4 необходимы дополнительные данные...
nataprada
11.01.2020 17:47
Упражнение 3. Раскройте скобки, употребляя глаголы в Present Perfect, Present Simple, Present Continuous, Past Simple или Past Continuous. 1.With whom you (to talk) yes¬terday?...
ananas6947
11.01.2020 17:47
1)Какую часть метра составляют 5 дм? 2) переобразовать 27/13=7 2/5=3)вычислить 5/12+2/5=7/9-2/3=8 1/6+1 3/4=...
Izabella30
04.12.2020 02:10
. Атмосферное давление с подъемом на 10,5 м А) уменьшается на 10 мм рт. ст. В) увеличивается на 7 мм рт. ст. С) увеличивается на 5 мм рт. ст. D) уменьшается на 1 мм рт. ст. ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,s,n,m:integer;
begin
Write('Количество чисел равно ');
Readln(n);
s:=0;
Writeln('Введите все числа');
for i:=1 to n do
begin
Read(m);
if (abs(m mod 10)=5) and (m mod 3=0) then s:=s+m
end;
Writeln('s=',s)
end.