Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.12.2011, 21:34   #1
Катя21
Пользователь
 
Регистрация: 26.12.2011
Сообщений: 15
По умолчанию ответьте на вопрос!

В задаче была допущена ошибка: входные данные были не учтены! Нужно определить, на что это повлияло в задаче?

При возведении некоторых натуральных чисел в квадрат полученный результат может оканчиваться исходным числом. Например, 762=5776. Опре-делить все N-значные числа, обладающие указанным свойством (N<21). Формат входных данных: N. Формат выходных данных: все числа, обла-дающие заданным свойством, каждое из которых выводится с новой строки. Порядок вывода значения не имеет.

program z20;
var i,n:integer;
begin
Writeln('Все числа, при возведении в квадрат которых получается результат оканчиваеться исходным числом: ');
For i:=1 to 20 do
if (sqr(i) mod 10) = i then
Writeln(i);
end.
Катя21 вне форума
Старый 28.12.2011, 00:12   #2
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

Тут нет решения задачи. Приведенный кусок кода вообще работает только для одноцифровых чисел )
Son Of Pain вне форума
Старый 28.12.2011, 11:16   #3
Катя21
Пользователь
 
Регистрация: 26.12.2011
Сообщений: 15
По умолчанию

Спасибо)))
Катя21 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто знает?ответьте ) In4ekk Свободное общение 5 19.02.2011 19:33
Ответьте на вопрос Arei15 Помощь студентам 0 01.11.2009 10:50
Расшифруйте и ответьте на вопрос для ключа КРЭС Dj_Tiger Паскаль, Turbo Pascal, PascalABC.NET 7 17.11.2008 00:56
[C++] Ответьте на возникшие вопросы... Padre Помощь студентам 2 09.05.2008 23:21