Войти
Регистрация
Спроси ai-bota
Qwer948
21.10.2020 19:00
1.найти количество натуральных чисел, не превышающих 100 и кратных 5. 2.создать массив а из 10 элементов, принадлежащих промежутку (0; 25). вывести полученный массив на экран. подсчитать количество элементов, больших а [1]. все с паскаля
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
valera242
12.04.2021 21:46
Что воходит состав технических средств...
denis2013den
16.07.2021 02:17
Стестом 1. укажите назначение службы internet e-mail: удаленное компьютером (терминальное) электронная почта (почтовый сервер) служба тестирования служба знакомств 2. программа,...
dasha45da
24.09.2022 14:31
Скорость передачи через adsl-слединенин равна 512000 б/с. передача файла заняла 1 минуту. определите размер файла в килобайтах....
vlodimirfrolov
22.03.2022 07:16
За сколько секунд модем, информацию со скоростью 57600 б/с, может передать две страницы текста, объемом 3600 байт?...
WolfHunter1
25.10.2021 22:09
Для каких целых значений X истинно высказывание: не ((X 3) или (X 2)) ? В ответе запишите числа подряд без разделителей. ...
elizavetamalik1
30.01.2020 09:31
Составить код программы для задачи: Определить четверть координатной плоскости, которой принадлежит точка. Координаты точки ввести с клавиатуры....
0121090066
16.10.2022 04:22
Что такое диаграмма? 2. Для чего используется диаграмма? 3. Какие есть виды диаграмм? 4. Как можно включить диаграмму в электронную таблицу? 5. Как можно исправить или дополнить...
artemmaslov25Artem
29.09.2021 14:38
Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. если таких цифр нет, то вернуть -1. требования к подпрограмме: процедура должна называться search...
3457ДашаСупер111
01.05.2020 03:18
Составить программу нахождения суммы трех чисел числа целые....
kazakovfiodor
10.08.2020 14:56
Формирование нового массива из отрицательных элементов матрицы Pascal Объяснить...
Ответ:
kseniazaica
03.07.2020 15:18
1.
var i,k:integer;
begin
k:=0;
for i:=1 to 100 do
begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln (k);
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота