Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
yagunovaliza
23.02.2021 20:19 •
Информатика
Паскаль подсчитать количество трёхзначных чисел кратных 50
Показать ответ
Ответ:
Rinako12
02.07.2020 06:53
Program zd;
var
i,n:100..999;
k:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 50=0 then
k:=k+1;
writeln('Количество= ',k);
end.
вроде бы так
0,0
(0 оценок)
Популярные вопросы: Информатика
Знайка1431
22.05.2021 22:17
Создайте окно размером 600 х 800 и напишите код программы, который раскрасит его в зеленый цвет:...
антон778
16.02.2020 05:41
Написать программу на pascal. заполните экран зеленым цветом. введите строку в с клавиатуры. выведите строку в центре экрана вставив в нее посередине строки три *....
rusik66
21.03.2021 22:19
Напишите программу, дано условие и блок-схема. на 1 фото. блок-схема на втором...
Ника72432525
11.09.2020 10:28
Расшифровать~ 01001001 00100000 01101100 01101111 01110110 01100101 00100000 01111001 01101111 01110101 00101100 00100000 01000001 01110011 01111001 01100001...
kristina1333313
22.03.2021 15:21
Заполните массив степенями числа 2 ( от 2 в 1 степени до 2 в энной степени) паскаль abcnet...
GoldenFreddi322
08.05.2022 07:24
Заполните массив случайными числами в диапазоне от 20 до 100 и подсчитайте отдельно число элементов с четными и нечетными значениями паскаль abcnet...
Анжелика200611111
11.05.2021 13:23
Дано целое число. если оно является положительным то прибавить к нему 20, в противном случае вычесть из него 5. вывести полученное число (написать программу, начертить...
mischad
19.05.2022 08:24
Реферат набранный на компьютере содержит 48 страниц на каждой странице 36 строк в каждой строке 48 символов эволюционное объем реферата 81 кб определите размер кодировке...
Yulia1393
02.10.2021 00:53
Ввести 2 числа. если их произведение отрицательно, умножить его на 8 и вывести на экране, в противном случае увеличить его в 1,5 раза и вывести на экран. (написать...
vanzoca
11.02.2022 19:11
Написать программу, которая находит одинаковые цифры двух чисел. в pascal, желательно через function. можно чтобы токого не было.входные данные: 466 476. выходные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i,n:100..999;
k:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 50=0 then
k:=k+1;
writeln('Количество= ',k);
end.
вроде бы так