IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
Closed Topic Открыть новую тему 
> набросать алгоритм
сообщение
Сообщение #1


Гость






Дано число Н. В промежутке от 1 до Н найти числа,запись которых совпадает с записью последних цифр квадратов этих чисел. Например, 5-25,
6-36.
желательно сегодня. горит.
Заранее благодарен.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


var
D, F, Z: Integer;
begin
D := StrToIntDef(Edit1.Text, 0);
Z := 10;
for F := 1 to D do
begin
while Z<=F do
Z := Z*10;
if ((F*F) mod Z)=F then
WriteLn(F);
end;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.09.2017 22:31
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"