написать программу, которая выводит дату рождения пользователя(месяц и день) и выдает по ней ближайший «счастливый» год
Необходимо написать программу, которая выводит дату рождения пользователя(месяц и день) и выдает по ней ближайший «счастливый» год. «Счастливым» считается тот год, остаток от деления суммы цифр которого на 10 совпадает с аналогичным остатком для дня рождения или месяца.
Есть небольшие наработки, но к сожалению не могу «додумать» до конца.
var dd, mm, sum1, sum2, sum11, sum21, tg, tg1, tgsum, tgsum01:Integer; begin writeln(‘Welcome!’); writeln; writeln; sum11:=0; sum21:=0; write(‘Enter a birthday: ‘); // ввести день рождения Readln(dd); while (dd>31) or (dd<1) do begin Write(‘Incorrect format.Enter a birthday: ‘); Readln(dd); end; Write(‘Enter month of birth: ‘); // ввести месяц рождения Readln(mm); while (mm>12) or (mm<1) do begin Write(‘Incorrect format.Enter month of birth: ‘); Readln(mm); end; Writeln(‘Full date of birth: ‘, dd, ‘.’, mm); sum1:=(dd div 10)+(dd mod 10); // высчитываем сумму цифр дня sum2:=(mm div 10)+(mm mod 10); // высчитываем сумму цифр месяца sum11:=(sum1 mod 10); // остаток от деления дня рождения на 10 sum21:=(sum2 mod 10); // остаток от деления месяца на 10 Write(‘Enter the current year: ‘); Readln(tg); Repeat tg:=tg+1; begin tgsum:=(tg mod 10); tgsum:=tgsum+(tg div 10 mod 10); tgsum:=tgsum+(tg div 100 mod 100); tgsum:=tgsum+(tg div 1000); end; until (tgsum=sum11) or (tgsum=sum21); Writeln(tgsum); Readln; end.
Источник: www.programmersforum.ru
Программирование на С++. Урок 10. Попадает ли точка в заштрихованную область
Часть 2
Теоретическая часть. Иногда при работе с документом необходимо использовать некоторые символы, которые отсутствуют на клавиатуре. Для этого можно использовать режим Вставка Символ. В открывшемся диалоговом окне Шрифты выбрать необходимый шрифт и затем из предлагаемого набора символов выбрать необходимый, после чего нажать на кнопку Вставить. Размер символа выберите соответственно предлагаемому образцу.
Задание № 1.
Создайте карточку по следующему образцу. Все использованные символы находятся в наборе Webdings и Symbol
ветер северный умеренный
воздуха днем 6-8º, ночью 0-2º тепла
Восход Солнца 07 час. 14 мин.
Заход Солнца 16 час. 07 мин
Восход Луны 19 час. 43 мин.
Заход Луны 09 час. 55 мин.
Задание № 2.
В этом же документе создайте карточку по следующему образцу. Все использованные символы находятся в наборе Webdings
Турбаза “Голубой залив”
Расположена на берегу моря
К вашим услугам:
- Интернет кафе
- Комфортабельный микроавтобус
- Междугородний телефон.
Задание № 3.
Pascal Полный курс с нуля за 4 часа
Внимательно рассмотрите предлагаемый к работе текст. В режиме Вставка Символ Автозамена просмотрите внимательно предлагаемые символы автозамены и выпишите в тетрадь символы автозамены, которые понадобятся вам в процессе работы.. Автозамена автоматически исправляет наиболее часто встречающиеся опечатки, а также орфографические и грамматические ошибки. Параметры автозамены несложно изменить; также существует возможность дополнения списка автоматических исправлений.
С помощью автозамены напишите следующее письмо:
Утром я просыпаюсь немного (грустным), т.к. чаще всего утром я просыпаюсь невыспавшимся. Но быстро проглотив вкусный завтрак я становлюсь (счастливым). По пути в школу я нахожусь в полной (задумчивости), потому что все мои мысли уже полностью связаны с уроками. И, наконец к концу уроков я снова становлюсь (счастливым).
В.Э. Садриев. Задачник-сборник по информатике. 8 класс
Источник: studfile.net
Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце? в паскале
Смотри во вложениях. П.с. Оператор Кэйс даже расписал.
Также наши пользователи интересуются:
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце? в паскале» от пользователя Стас Береговой в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне — включи камеру и наведи на QR-код!
Источник: shpora.org