Войти Регистрация Спроси ai-bota

Среди чисел 1 до n найдите и выведите на экран такие,запись которых с последними цифрами их квадрата (например 6 в квадрате=36).n введите с клавиатуры.буду за решение и за подробное объяснение.

Ответ:

Aleusand

26.08.2020 01:22

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
N, сч, ч, кв: ЦЕЛ;

УКАЗ
N := Приём.Число();
ОТ сч := 0 ДО N ВЫП
кв := сч * сч;
ч := сч;
КОЛЬЦО
ПОКА ч > 0 И кв > 0 ВЫП
ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО
ВЫХОД
КОН;
ч := ч ДЕЛИТЬ 10;
кв := кв ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d", сч, 0, 0, 0)
КОН
КОН

КОН Задание.

0,0(0 оценок)

Популярные вопросы: Информатика

putWrite1

25.02.2021 11:59

Современные носители информации флэш-память диск винчестер перфокарта камень папирус...

ека29

14.11.2022 01:01

Доклад на тему храниние и передача информации...

VikaKemer

02.10.2020 09:58

Втрехзначном числе x зачеркнули первую цифру. когда полученное число умножили на 10, а произведение сложили с первой цифрой числа x, то полу- чилось число n. по заданному...

svetysa95

05.05.2023 17:15

Даны действительные числа X и Y. Вычислить значение M....

katrinvar

17.08.2022 05:22

САМОСТОЯТЕЛЬНАЯ РАБОТА ПО «ТАБЛИЦЫ НА HTML»: создайте HTML-КОДЕ, ЧТОБ ПОЛУЧИЛАСЬ СЛЕДУЮЩАЯ WEB-СТРАНИЦА: Таблица Страна Столица Таблица HEAD Страна Столица Официальный...

Bananthic

27.03.2020 08:13

Найти ошибки и исправить их Program Ex2; Uses CRT; Var Const A,B-integer; Rezult:byte Begin Write( Введите два числа: ); Reat(A,B); Rezult=A * B; Writeln( Отношение...

Kotja6996

19.01.2020 00:15

Средняя скорость письма ученика составляет 20 слов в минуту 1 слово в среднем 7 символов 1 символ имеет информационный обьем 5 битов какое количество информации может...

Lina905

19.01.2020 00:15

Как перевести двоичный код в десятичный, только человеческим языком...

Aleks5953

17.12.2022 13:41

1. Раскройте скобки, правильно употребив времена FutureSimple и PresentSimple.ОБРАЗЕЦ. When I (see) Tom tomorrow, I (invite) him to our party. — When I see Tom tomorrow,...

Moran1

08.03.2020 12:29

6гнорололоророороро что такое оарыш...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку