tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Pascal в одномерном целочисленном
Pascal в одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.
КУКУ2007
2 09.08.2019 02:00
0
Ответы
karinasoskova
04.10.2020 06:19
Program xxx;
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Агент271
06.06.2019 01:50
Текстовое сообщение имеет размер 45080000 бит. определите его размер в кбайтах в системе unicode...
zhovnovich
11.06.2019 22:00
Определите значение переменной s, полученное в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль...
ssjjd
11.06.2019 22:00
Вподъезде 16 квартир.сколько информации несет сообщение о том,в какой квартире живет ваш друг?...
Azerb1
11.06.2019 22:00
На основе чего сконструировано четвертое поколение эвм?...
shevyakova2018
27.11.2020 17:34
Программаға обьектілерді кірістіретін ...
Alena200302
27.11.2020 17:35
Упростите логическое выражение 7 F=xl v x2 v x3(x1 v x2)...
layma45
27.11.2020 17:36
Наскільки регулярно оновлюється матеріали на веб-сайті? Чи не застаріла дата розміщення матеріалів?...
NastasS4
27.11.2020 17:36
Ноль или не ноль Проверьте, есть ли среди данных N чисел нули. Входные данные Вводится число N, а затем N чисел. Выходные данные Выведите YES, если среди введенных чисел...
diana55665
27.11.2020 17:38
3. Определите значения переменной b после выполнения фрагмента алгоритма 3)b...
ArseniiB1
19.05.2019 20:20
Горький детство вопрос: попробуйте дать оценку деду алеши. какое отношение вызвал он у внука? какое у вас?...
Популярные вопросы
Марфологический признак слова владел...
2
Даны отрезок ab и прямая а, непересекающая этот отрезок, расстояния...
3
36 с.ш 82 з.д. вершины крупных горных стран...
1
Какое количество теплоты необходимо для нагревания воды в бассейне...
2
Какие вопросы можно задать на фразеологизмы...
3
1мая счётчик воды показывал расход 158 м. куб. , а 1 июня 176 м куб....
2
Втрапеции abcd диагональ ac перпендикулярна боковой стороне cd и делит...
2
Какая пара чисел является решением системы уравнений 2х+у=-3 3х-2у=-8...
2
Перифразы в первой части песни про царя ивана васильевича...
3
Для украшение зала купили 6 п воздушных шаров по 30 шт в каждом пачке.нада...
1
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.