Меню сайта

Категории раздела
Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) [36]
Решение олимпиадных задач по программированию
Готовимся к олимпиаде по математике [3]
Решение олимпиадных задач по математике

Мини-чат

Наш опрос
Оцените мой сайт
Всего ответов: 2669

Статистика

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


Главная

Регистрация

Вход
Вы вошли как Гость | Группа "Гости" | RSS


Личный сайт учителя математики и информатики

Фоновой Натальи Леонидовны



Пятница, 14.08.2020, 08:40
Главная » Файлы » Внеурочная деятельность » Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru)

Счастливые билеты
14.02.2012, 08:25

Условие:
Написать программу определения количества билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр.

Технические условия:
Стандартные.

Примеры входных и выходных файлов:
Отсутствуют.

Решение:
Идея решения. Просматриваем числа от 0 до 999999. Делим число на 2 части: первые 3 цифры и последние 3 цифры, находим сумму цифр каждой из частей, сравниваем результат.

function summ(x:longint):byte; {возвращает сумму цифр числа}
var
k,l:byte;
y:longint;
begin
y:=x;
l:=0;
while (y<>0) do
begin
k:=y mod 10;
y:=y div 10;
l:=l+k
end;
summ:=l;
end;
var
w1,w2,i,j,count:longint;
n,m:byte;
begin
count:=0;
for j:=0 to 999999 do
begin
w1:=j div 1000;
w2:=j mod 1000;
if summ(w1) = summ(w2)
then begin
count:=count+1;
writeln(j,' --> ',count);
end;
end;
end.
Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 592 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Кнопка сайта

Одна кнопка

время жизни сайта

Сайт участвует
конкурс сайтов 

Новости образовани

Фраза дня

Web-мастеру

OperaFirefoxGoogle ChromeDownload Master
QIPSkypeµTorrentTeamViewer
Dr.Web CureITAvira AntiVirTotal CommanderCDBurnerXP
PicasaIrfanViewCheMaxDAEMON Tools
AIMPKMPlayerBSplayerK-Lite Codec Pack

Установить себе такой Блок
Скрипты и HTML для uCOz

Раскрутка сайта
Graffiti Decorations(R) Studio (TM) Site Promoter

Copyright MyCorp © 2020
/td>