Информатика: Выбери арифметические операции

fuvgkvu

11.06.2023 22:26

Информатика

Есть ответ 👍

Выбери арифметические операции

128

445

Посмотреть ответы 1

Ответы на вопрос:

emeljanenkoira

Информатика

4,8(33 оценок)

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 function automorph(n: integer): boolean; begin var s1: =n.tostring; result: =(s1=(n*n).tostring.right(s1.length)) end; begin var a,b: integer; write('введите а и b: '); read(a,b); for var i: =a to b do if automorph(i) then print(i) end. тестовое решение: введите а и b: 1 10000 1 5 6 25 76 376 625 9376 попробовал переписать функцию в более примитивный вид. по-моему, она не стала проще, только function automorph(n: integer): boolean; begin var s1: =inttostr(n); // n переводим в строковое представление var s2: =inttostr(n*n); // n*n переводим в строковое представление var l1: =length(s1); // длина строки s1 s2: =rightstr(s2,l1); // правые l1 символов из s2 result: =(s1=s2) end;