Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
elenavlodekp087wo
26.03.2021 01:08 •
Информатика
Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5. , в паскаль
Показать ответ
Ответ:
даяна55552
08.10.2020 02:22
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x->x mod 5=0).Println;
end.
0,0
(0 оценок)
Ответ:
NEO178
08.10.2020 02:22
//Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5
var a:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do if (a[i] mod 5 = 0) then writeln(a[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
DashaAndreanova
15.07.2022 21:25
Нарисуйте граф из 7 вершин и таблицу смежности, и обратно. ...
ParkTaehyung
30.10.2021 16:28
Microsoft access cложные запросыимеется следующая структура базы данных (см. фото). таблица изготовления показывает, какой повар какое продукт и в каком количестве...
fgjhgfhh1
12.09.2020 16:16
Записать дату 28.08.1998 римскими цифрами...
Dashalu45
25.08.2021 11:58
4. что мы увидим на экране после выполнения программы? var x : integer; y: real; begin x: =100; y: =5; writelen(‘результат: ’: 25); write(‘при х=’, х: 5, х/5: 6: 2);...
domnet
25.08.2021 11:58
Составить схему алгоритма и программу определения в массиве из 11 элементов тех значений, которые кратны 2....
skey16
25.08.2021 11:58
Вдвумерном массиве подсчитать кол-во нечетных элементов. массив заполнить случайными числами в интервале от -3 до 10. вывести на экран массив в виде таблицы и кол-во...
dreytes
25.08.2021 11:58
2.правильны ли следующие операторы присваивания? если нет, то почему? a) k: =k mod 3+k*cos(5); б) x: =x*2 div 6+x/4; если нет исправьте, !...
oxpoluhina2017
25.08.2021 11:58
1.в компьютерных сетях протокол рор3 работает на уровне модели взаимодействия открытых систем. a. прикладном b. сетевом c. d. транспортном 2.топология сети не является...
alins3
01.12.2022 20:19
Составить блок- схему решения следующей .даны значения двух действительных переменых a и b.обменять местами их значения, при этом нельзя использовать никаких дополнительных...
carollabelle
01.12.2022 20:19
Составить программу определения количества цифр в целом числе ps; код программы паскаль....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x->x mod 5=0).Println;
end.
var a:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do if (a[i] mod 5 = 0) then writeln(a[i]);
end.