Вопрос по информатике:
Среди чисел 1 до N найдите и выведите на экран такие,запись которых совпадают с последними цифрами их квадрата (например 6 в квадрате=36).N введите с клавиатуры.Буду очень благодарен за решение(и если вас не затруднит объяснение,т.к я новенький в этом деле и хотел бы научиться у знающих людей)спасибо за внимание.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.02.2017 19:13
- Информатика
- remove_red_eye 15267
- thumb_up 5
Ответы и объяснения 2
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\\, Приём;br />
ПЕР
N, сч, ч, кв: ЦЕ
- 15.02.2017 05:04
- thumb_up 36
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('N=');
Range(1,n).Select(i->(i.ToString,(i*i).ToString)).
Where(t->t[0]=t[1].Right(t[0].Length)).Println;
end.
Пример
N= 1000
(1,1) (5,25) (6,36) (25,625) (76,5776) (376,141376) (625,390625)
2. А вот так примерно учат в большинстве школ
var
n,i,j,li,li2:integer;
si,si2:string;
begin
Write('N= '); Read(n);
for i:=1 to n do begin
Str(i,si);
li:=Length(si);
Str(i*i,si2);
li2:=Length(si2);
si2:=Copy(si2,li2+1-li,li);
if si=si2 then Write('(',si,',',i*i,') ')
end
end.
- 16.02.2017 19:56
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.