Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
raiskadem
18.08.2022 06:21 •
Информатика
Четырехзначное число,у которого первая цифра равно второй а третья четвертой,является квадратом двузначного числа. найти эти числа.(паскаль,циклы)
Показать ответ
Ответ:
dianabalaganska
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 оценок)
Популярные вопросы: Информатика
Вишенка011
31.01.2020 01:54
Через какие действия формируется отчет?...
juliyamacko99
03.09.2021 01:00
Дайте развернутые ответы на во Какие действия относятся к области информационных преступлений? Приведите примеры, когда человек бессознательно совершает информационное правонарушение?...
Evo4ka111
07.12.2020 20:30
Знаю, с уроками не связанно, но.Как в мкпе 1 14 60 выдать рычаг или кирку, которые можно ставить(ломать) на только определённый блок?...
Алёна1570
19.01.2023 05:30
Запишите значение переменной s, полученное в результате работы следующие программы: var s, m, i: integer; begin s: = 0; m: = 5; for i: = 2 to m do s: = s+i; writeln(s); end...
dasharisk2104
05.05.2021 06:51
Задан одномерный массив из n чисел и число k.напечатать да , если k совпадает хотя бы с одним из элементов массива нет в противном случаи...
keks661
05.05.2021 06:51
5. вам нужно умножить некоторое большое число х на 15. у вас есть калькулятор, но на калькуляторе сломались все кнопки операций, кроме сложения. поэтому вы можете только складывать...
rozvalova04
02.06.2023 23:32
А13. масса нитрата натрия, взятого количеством 0,8 моль, равна 1) 68 г 2) 64 г 3) 42 г 4) 34 г ответ объясните...
nik863
02.06.2023 23:32
При царе иване четвертом были выпущены монеты на которых изображался всадник с копьем в руке как назывались эти монеты...
nikitos3567
02.06.2023 23:32
При равных нагрузках сила трения качения...
pep4
02.06.2023 23:32
Разложите на множители : а) 64р² - q² б)1 - 81в² в)16с²d² - 9 г) 25q ⁴- 169t⁶ д) 121 - (а+3)²...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.