Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
samuray99
25.09.2021 05:06 •
Информатика
Среди чисел 1 до n найдите и выведите на экран такие,запись которых с последними цифрами их квадрата (например 6 в квадрате=36).n введите с клавиатуры.буду за решение и за подробное объяснение.
Показать ответ
Ответ:
666666ник
26.08.2020 01:22
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, сч, ч, кв: ЦЕЛ;
УКАЗ
N := Приём.Число();
ОТ сч := 0 ДО N ВЫП
кв := сч * сч;
ч := сч;
КОЛЬЦО
ПОКА ч > 0 И кв > 0 ВЫП
ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО
ВЫХОД
КОН;
ч := ч ДЕЛИТЬ 10;
кв := кв ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d", сч, 0, 0, 0)
КОН
КОН
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
vanyastal2015
09.07.2022 17:18
Во После выполнения команды - сместиться на вектор(4, 3) - Чертежник оказался на координатной плоскости в точке (7, 4). В какой точке чертежик находился до выполнения поставленой...
linakn14
16.12.2020 16:15
Контрольная работа по информатике. Парты стоят в линию. Необходимо рассадить учеников так, чтобы они не смогли списывать у рядом сидящего, то есть посадить их через парту. Единица...
АКА47111
26.09.2020 04:16
Сочинение на тему моё животное ...
del9832
17.01.2023 18:57
06 єднання різногалузевих підприємств, підпорядкованих єдиному фінансовому центру, це:...
kirakoveduard
12.11.2022 02:12
Об єм водню за тиску 960-кПа дорівнює 49 см. Який буде об єм водню за тиску 98-кПа, якщо температура газу не змінювалася...
danielvinixin
12.11.2022 02:12
Решите уравнение: |х У МЕНЯ СОРРР...
Ivan326154353
23.04.2023 21:02
А) Определи массу в килограммах. 6) Расположи дроби в порядке возрастания 7/8т. 4/25. 3/10 т. 9 /40т. 6/8т. 1/10т. 17/125т...
vadim1231231
25.12.2020 10:22
В треугольнике АВС угол С=90 градусов , угол А =60 градусов , сумма сторон АС и АВ равна 15 см . Решите Уравнением . Найти АС и АВ....
skvortsovaasya
27.01.2020 06:28
2. Укажите, в каком из перечисленных случаев совершается механическаяработа A) Вода давит на стенки сосудаB) Камень лежит на дне озераC) Искусственный спутник движется по инерцииD)...
КатяVL
29.05.2021 15:23
ОСТАЛОСЬ 30 МИНУТ ТРЕТЬЕ ЗАДАНИЕ НЕ НАДО >...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, сч, ч, кв: ЦЕЛ;
УКАЗ
N := Приём.Число();
ОТ сч := 0 ДО N ВЫП
кв := сч * сч;
ч := сч;
КОЛЬЦО
ПОКА ч > 0 И кв > 0 ВЫП
ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО
ВЫХОД
КОН;
ч := ч ДЕЛИТЬ 10;
кв := кв ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d", сч, 0, 0, 0)
КОН
КОН
КОН Задание.