Вопрос по информатике:
Задача для языка Free Pascal:
Найти все натуральные числа от N1 до N2,запись которых совпадает с последними цифрами записи их квадрата (как, например 6^2 - 36,25^2 = 625 и т.д.)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.01.2017 07:53
- Информатика
- remove_red_eye 17442
- thumb_up 37
Ответы и объяснения 1
N1,N2,A:integer;
B:longint;
k:boolean;
Begin
Write('N1 = ');ReadLn(N1);
Write('N2 = ');ReadLn(N2);
For N2:= N1 to N2 do
Begin
k:=true;
A:=N2;
B:=A*A;
While A0 do
Begin
if (A mod 10 B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N2,' ');
End;
End.
Пример:
N1 = 0
N2 = 65536
0 1 5 6 25 76 376 625 9376
- 13.01.2017 00:34
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.