Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
лерочка345671083
06.11.2020 03:34 •
Информатика
Четырехзначное число,у которого первая цифра равно второй а третья четвертой,является квадратом двузначного числа. найти эти числа.(паскаль,циклы)
Показать ответ
Ответ:
pokin45
24.06.2020 14:45
Uses crt;
var i,j:integer;
begin
for i:=1000 to 9999 do
for j:=10 to 99 do
if ((i div 1000)=(i div 100)mod 10)
and ((i div 10)mod 10=i mod 10)
and (i=j*j) then writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Julia5415613614
09.09.2022 21:04
Составьте таблицу истинности...
noniqname
24.06.2020 02:40
Сдать решение задачи D-Паутина Ограничение времени: 1 с Оставшиеся посылки: 100 Паутина Паучок находится в левом нижнем углу клетчатой доски размерами N × N , где каждая клетка...
Uvarovakatya200
14.05.2020 20:59
Написать формулу Эксель для поиска x...
Face200
07.10.2021 03:14
нужно на ПИТОНЕ 1) Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования эффективный алгоритм, Позволяющий найти и вывести наибольшую разность двух...
ОксанаБ80
25.03.2023 18:36
Для хранения растрового изображения размером 341×341 пикселей отвели 16 КБ памяти. Каково максимально возможное число цветов в палитре изображения? оч...
kupmvik
25.03.2023 18:36
Составить логическую схему...
РЕЛАД
20.02.2022 17:20
Определите какой результат получится в ячейках C1 и C3 если в них скопировать формулу ПОБЫСТРЕЕ ...
XASSA
15.01.2023 23:13
Задание 3. Проанализируй и опиши, какое движение выполняет робот на рисунке....
Nastya06923
28.12.2021 07:22
Сколько раз и в какие моменты времени у textView вызовется метод onDraw после нажатия на кнопку button? Какой текст будет отображен?class MainActivity : AppCompatActivity() { override...
zzz1792
12.01.2021 15:41
Написать программу для квадратного уравнения, которая будет выводить сообщение о его форме: полное или неполное, в зависимости от введенных коэффициентов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,j:integer;
begin
for i:=1000 to 9999 do
for j:=10 to 99 do
if ((i div 1000)=(i div 100)mod 10)
and ((i div 10)mod 10=i mod 10)
and (i=j*j) then writeln(i);
end.