Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mspanda22
24.01.2022 17:24 •
Информатика
Имеется трёхзначное число, цифры которого различны. после зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного. найдите n-первых таких трёхзначных чисел. (n=70)
Показать ответ
Ответ:
Efendieva2004
20.06.2020 12:20
Var k,x,a:integer;
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
olya801
28.05.2021 04:48
- - Задание №2 положительное число, то Дано действительное число A. Если А возведите его в квадрат, если же число A - отрицательное число, то вычислите куб этого числа и отобразите...
Molka2005
30.01.2020 20:37
Выберите верное изображение Укажите устройство позволяющее осуществить ввод информации в графическом редакторе клавиатура мышь сканер принтер графический планшет...
Аня20171502
08.05.2022 06:00
Нужно составить блок схему для этого задания....
Эргаш2Исамов
01.03.2021 18:25
Дана задача: При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 6 символов и содержащий только символы из 7-буквенного набора А, В, Е,...
aimnura73
16.02.2021 19:33
сколько символов, выражённых в байтах, в заданной последовательности: 1101001100011100110100110001110001010111...
Pppddddd
16.02.2021 19:33
НАЧАЛО ПОКА нашлось (222) ИЛИ нашлось (888) ЕСЛИ нашлось (222) ТО заменить (222, 8) ИНАЧЕ заменить (888, 2) КОНЕЦ ЕСЛИ КОНЕЦ ПОКА КОНЕЦ Какая строка получится в результате применения...
INGL500
25.03.2022 09:50
Напишите алгоритм рисования цифры 10...
sashanatashakes
08.10.2022 08:54
уже ответы я знаю, объясните как разбираться в этих знаках1.Формулой логического высказывания:- Синий кубик меньше красного или меньше зеленого является: *а) А V В;б) А Ʌ В;в)...
диль9
06.03.2022 17:03
Напишите программу на Pascal, которая выведет на экран продолжениеследующих предложений: Мне было интересно… Мне было трудно… Я понял, что… Теперь я могу… Я приобрел…...
этояученик
09.02.2023 13:00
Як розмістити поле на формі? (Информ)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.