Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Ираказефирка
10.06.2021 08:31 •
Информатика
Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5. , в паскаль
Ответ:
ssshhh1
08.10.2020 02:22
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x->x mod 5=0).Println;
end.
0,0
(0 оценок)
Ответ:
MrWolf1244
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 оценок)
Популярные вопросы: Информатика
anuta00002000
14.01.2020 07:29
Какие из электронных носителей информации (компакт-диски, флешки и т.д.) являются наиболее долговечными и надежными?...
santa34
14.01.2020 07:29
Какие бывают услуги компьютерных сетей...
sherbashina
01.01.2020 00:04
один том энциклопедии состоит из 2000 листов (4000 символов на каждой странице). сколько мбайт необходимо для его записи ?...
улгкармцрваейьоц
20.09.2020 10:28
какой тип компьютеров обладает большим объемом оперативной и внешней памяти и предназначен для хранения и обработки больших баз данных?...
dianavoronina4545
01.12.2021 08:43
Послідовність етапів створення документа...
AMK525
09.10.2020 04:06
(5 5) (5 5) =100 как решить ето ришения...
tarringate
09.10.2020 04:06
Вцветовой модели rgb графического редактора установлены следующие параметры цвета: 127, 127, 127. какой цвет будет соответствовать этим параметрам?...
lianabalkoewa
09.10.2020 04:06
Вклассе n- учеников по контрольной получили a- пятерок , b- четвёрок , c- троек .найти процент a,b,c...
dariadariadaria2
06.06.2023 23:53
Дано натуральное число определить сумму цифр в числе кратных 5. составить блок схему паскаль трассировку число 525...
KarinkaMalinka303
05.02.2023 05:17
Вкаких случаях пишется do, а когда does...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Версия 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.