Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Zagitova112
20.08.2022 08:38 •
Информатика
Среди чисел 1 до n найдите и выведите на экран такие,запись которых с последними цифрами их квадрата (например 6 в квадрате=36).n введите с клавиатуры.буду за решение и за подробное объяснение.
Ответ:
porshe04
26.08.2020 01:22
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, сч, ч, кв: ЦЕЛ;
УКАЗ
N := Приём.Число();
ОТ сч := 0 ДО N ВЫП
кв := сч * сч;
ч := сч;
КОЛЬЦО
ПОКА ч > 0 И кв > 0 ВЫП
ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО
ВЫХОД
КОН;
ч := ч ДЕЛИТЬ 10;
кв := кв ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d", сч, 0, 0, 0)
КОН
КОН
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
ostapenkonatasha
13.08.2021 14:39
Я ищу ноут для дистанционной учёбы на онлайн-курсах. Я буду использовать Zoom и Skype, так что мне нужен слот для SIM-карты, а ещё наушники с микрофоном...
Mishanaxsar
30.07.2021 00:03
Напишите программу на языке Pascal. Дан целочисленный массив из 5 элементов (значения от 0 до 1000). Найти количество двузначных чисел массива (k=k+1). Буду признательна, если программа...
ATimofeeva
15.07.2021 08:28
Система счисления, в которой каждая цифра обозначает количество значений, которые равны шестнадцати в некоторой степени, называется Система 2. Система счисления, в которой есть только...
robertva693
13.02.2023 19:33
ИФНОРМАТИКА 8 КЛАСС вот ссылка https://onlinetestpad.com/hmqr75y7kr2h4ответы отправьте на почту [email protected] если все хорошо то оплачу деньгами. ...
Кавайныйлебедь
25.01.2023 00:33
решить. Информатика 8 класс. Разветвляющийся алгоритм...
Kamila7811
07.10.2021 15:57
С клавиатуры вводится трехзначное число. Нужно вывести ответ да , если все его цифры четные, и ответ нет в остальных случаях. Python...
daniil359
08.01.2023 16:38
Знатоки Питона Запрашивать у пользователя ввод числа, пока квадрат этого числа меньше 10. 2. Запрашивать у пользователя ввод двух чисел, пока их разность (первое число минус второе)...
People100
06.04.2021 21:26
Как решить пример: (1/a +1/24)* 8 = 1...
maxbas1
06.04.2021 21:26
На пограничном контроле в стране n рано утром работали всего три пограничника. первому пограничнику нужно 5 минут, чтобы проверить паспорт, второму – 6 минут, третьему – 8 минут....
Абдешова98
05.04.2020 22:17
Представить число 2019 в виде суммы нескольких кубических чисел и содержащих наименьшее количество слагаемых....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, сч, ч, кв: ЦЕЛ;
УКАЗ
N := Приём.Число();
ОТ сч := 0 ДО N ВЫП
кв := сч * сч;
ч := сч;
КОЛЬЦО
ПОКА ч > 0 И кв > 0 ВЫП
ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО
ВЫХОД
КОН;
ч := ч ДЕЛИТЬ 10;
кв := кв ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d", сч, 0, 0, 0)
КОН
КОН
КОН Задание.