Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
roversun7
22.05.2021 19:34 •
Информатика
Найти все числа, которые делятся на n среди а) всех двузначных чисел; б) всех трёхзначных чисел
Показать ответ
Ответ:
Yana7112
25.06.2020 23:52
а) Program a;
uses crt;
var
i,n:integer;
begin
Writeln ('Введите n');
Read (n);
For i:=10 to 99 do
begin
if i mod n=0 then
Write (i,' ');
end;
end.
б) Program b;
uses crt;
var
i,n:integer;
begin
Writeln ('Введите n');
Read (n);
For i:=100 to 999 do
begin
if i mod n=0 then
Write (i,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
аза101
19.01.2023 07:41
В полном двоичном дереве 64 листа. Сколько в нем всего узлов?...
Lera5457
14.06.2022 03:54
На сковороді вміщується два шматочки хліба. на підсмажування шматочка з одного боку потрібна 1 хв.. склади алгоритм, за яким можна підсмажити три шматочки з обох...
AntonBobko
14.11.2022 13:52
Составь предложения противоположные по смыслу данным предложениям петя не умеет читать...
BafuDzn
15.03.2022 16:42
Составить программу вывода на экран следующей информации x 25 x y...
indirsuleimano
15.03.2022 16:42
Для заданной последовательности a проверить, встречается ли среди ее первых 10 символов буква s, а для последовательности в проверить, встречается ли среди ее первых...
ndzandigiv
15.03.2022 16:42
Массив из 40 случайных чисел, каждое из которых находится в диапазоне от -30 до 30: а) выведите на экран количество и индексы отрицательных элементов массива. б)...
Arin0209
10.02.2020 21:27
Составить сравнения соответствующих реакции по схеме : с- сн4 - с2н4 - с2н6 - со2...
sweetdreamsmade91
10.02.2020 21:27
Написати оголошення про проведення спортивних змагань...
Chara5
10.02.2020 21:27
Вмотке было 30 м ленты одной девочке продали 5 м ленты а другой 7 м сколько метров ленты осталось реши разными...
valeravolc1990o
10.02.2020 21:27
Как перевести предложение по языку the farmar hasn t got a lot of apples...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
i,n:integer;
begin
Writeln ('Введите n');
Read (n);
For i:=10 to 99 do
begin
if i mod n=0 then
Write (i,' ');
end;
end.
б) Program b;
uses crt;
var
i,n:integer;
begin
Writeln ('Введите n');
Read (n);
For i:=100 to 999 do
begin
if i mod n=0 then
Write (i,' ');
end;
end.