INFOpudding - ИТ в образовании и не только
Четверг, 04.03.2021, 19:12
» Меню сайта
» Категории раздела
Информатика и ИКТ [0]
Программирование [6]
Математика [0]
» Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

» Форма входа
Главная » Статьи » Олимпиадные задания » Программирование

Решение задания 1 Всероссийской олимпиады по информатике 2010 (Варианты 2 и 3)
Задача 1. Интересные числа
Петя, выполняя домашнюю работу по алгебре, обнаружил числа с интересными свойствами: они повторяются в конце записи своего квадрата. Например, число 6 повторяется в своем квадрате 36=6·6, 25 повторяется в своем квадрате 625=25·25, 76 повторяется в своем квадрате 5676=76·76.
Для заданного интервала [a,b], где 1≤a,b≤250, a<b найти все числа, которые соответствуют найденному Петей правилу.
 Формат входных данных
В первой строке входного файла записаны два числа a и b.
Формат выходных данных
В выходной файл нужно вывести найденные числа (построчно).
Примеры
number.ini
number.out
1 10
1
5
6
10 100
25
76
Решение:

Вариант 2.
 
program interesnie_zisla;
var a,b:integer;
i,j: integer;
n: 1..3;
k:integer;
s:string;
BEGIN
a:=1;
b:=100;
for i:=a to b do
if (i mod 10=5) or (i mod 10=6) or (i mod 10=1) then
   begin
   str(i,s);
   n:=length(s);
   k:=1;
   for j:=1 to n do k:=k*10;
   if (i*i mod k = i) then writeln(i);
   end;
END.
 
Вариант 3.
 
program interesnie_zisla;
var a,b:integer;
    i: integer;
BEGIN
a:=1;
b:=100;
for i:=a to b do
if (i mod 10=5) or (i mod 10=6) or (i mod 10=1) then
   if i<10 then begin if (i*i mod 10=i) then writeln(i) end else
   if i<100 then begin if (i*i mod 100=i) then writeln(i) end else
   if (i*i mod 1000=i) then writeln(i);
Категория: Программирование | Добавил: anna (03.09.2011) | Автор: Anna
Просмотров: 870 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
» Поиск
» Учебные заведения
Брянский государственный университет академика И.Г. Петровского Брянская государственная инженерно-технологическая академия
Copyright MyCorp © 2021|Бесплатный конструктор сайтов - uCoz