МАТЕМАТИЧЕСКИЕ ОСНОВЫ ИНФОРМАТИКИ
Суббота, 15.12.2018, 06:08
ГлавнаяРегистрацияВход Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Линейный алгоритм [2]
Условный оператор if [3]
Оператор выбора [1]
Операторы цикла [2]
Целочисленное деление div и mod [2]
Генератор случайных чисел [1]
Практика [5]
Это интересно [2]
ЗАДАНИЕ 3 [1]

Наш опрос
Какой язык программирования Вы изучаете
Всего ответов: 954

Статистика

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

Форма входа


Главная » Файлы » ВИДЫ АЛГОРИТМОВ » Практика

3.3 Счастливый билет
16.12.2012, 21:38

3.3 Счастливый билет

 

Имя входного файла

input.txt

Имя выходного файла

output.txt

Максимальное время работы на одном тесте

2 секунды

Ограничение по памяти

64 Мб

 

У вас есть билет с шестизначным номером, определите, счастливый ли он.

Билет считается счастливым, если сумма первых трех цифр равна сумме трех последних, например 154325, сумма равна: 1+5+4=3+2+5.

Формат входных данных

Во входном файле записано одно целое шестизначное число A (100 000 ≤ А ≤ 999 999).

Формат выходных данных

В выходной файл выведите ответ Yes или No.

Пример

input.txt

output.txt

154325

Yes

342764

No


Пояснения к задаче:
Прочитай о div и mod , изучи пример решения задачи

ПРИМЕР ПРОГРАММЫ

Дано трёхзначное число. Чему равны его цифры?


var a,c1,c2,c3:integer;
Begin
writeln('
'введите трёхзначное число  '); readln(a);
c1:=a div 100;
c2:=(a mod 100) div 10;        {
или      c2:=(a div 10) mod 10;}
c3:=a mod 10;
writeln('
первая цифра -',c1);
writeln('
вторая цифра -',c2);
writeln('
третья цифра -',c3);
end.

(скопируй на свой компьютер программу, попробуй найти сумму цифр трехзначного числа).


Эти примеры тебе (еще раз) помогут понять значения операций целочисленного деления:

25 div 10 = 2

25 mod 10 = 5

357 div 10 = 35,    35 mod 10 = 5  или  ((357 div 10 ) mod 10 = 5)


ПрИмЕр КаК нЕ нАдО рЕшАтЬ зАдАчУ

program bilet;
var x1,x2,x3,y1,y2,y3,s1,s2:integer;
begin
writeln('введите первые 3 цифры на билете, по одному');
Readln(x1,x2,x3);
Writeln('введите последние 3 цифры на билете, по одному');
readln(y1,y2,y3);
s1:=x1+x2+x3;
s2:=y1+y2+y3;
Write('номер билета: ',x1,x2,x3,y1,y2,y3);
writeln;
If s1=s2 then writeln('yes') else writeln('no');
end.

В чем ошибка?

по условию: Формат входных данных - Во входном файле записано одно целое шестизначное число A, а не шесть, как в решении.

решение предполагает использование операций целочисленного деления!!!

Категория: Практика | Добавил: i_elf
Просмотров: 1590 | Загрузок: 0 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 1
1 i_elf  
ПрИмЕр КаК нЕ нАдО рЕшАтЬ зАдАчУ surprised

program bilet;
var x1,x2,x3,y1,y2,y3,s1,s2:integer;
begin
writeln('введите первые 3 цифры на билете, по одному');
Readln(x1,x2,x3);
Writeln('введите последние 3 цифры на билете, по одному');
readln(y1,y2,y3);
s1:=x1+x2+x3;
s2:=y1+y2+y3;
Write('номер билета: ',x1,x2,x3,y1,y2,y3);
writeln;
If s1=s2 then writeln('yes') else writeln('no');
end.

В чем ошибка?

по условию: Формат входных данных - Во входном файле записано одно целое шестизначное число A, а не шесть, как в решении.

решение предполагает использование операций целочисленного деления!!! cool

Желаю успехов в решении

Имя *:
Email *:
Код *:
Поиск

Друзья сайта
  • Творческий учитель
  • Сайт ООАКМР
  • Школьный сайт
  • Информатика учебник
  • МОИ

  • Copyright MyCorp © 2018 Сделать бесплатный сайт с uCoz