Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Помогите написать программу. Pascal

Помогите написать программу. Pascal - вопрос №2616032

Дано натуральное число n. Среди чисел 1...n найти такие, запись которых совпадает с последними цифрами записи их квадратов (например, 6^2=36, 25^2=625).
Вопрос задан анонимно
11.10.17
Учеба и наука / Информатика
2 ответа
Информатика
Программа
Программирование
Pascal

Лучший ответ по мнению автора

Константин
program Project2;
var
  i, l, r, N: integer;
  q: longint;
begin
    Write('Input N:');
    ReadLn(N);
    l:=10;
    for i := 1 to N do begin
      q:=i*i;
      r:=q mod l;
      if i = r then
        WriteLn(i, ' => ', q);
      if i >= l then
        l:=l * 10;
    end;
end.
11.10.17
Лучший ответ по мнению автора

Другие ответы

Александр Константинович
Обращайтесь в чат.
11.10.17

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее