Напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет, сколько дней осталось до Нового года. При вводе неверных данных должно быть выведено сообщение об ошибке.
var a, d, count, i: integer; function CountDay(a: integer): integer; begin if (a >= 1) then countday := 31; if (a >= 2) then countday := 28; if (a >= 3) then countday := 31; if (a >= 4) then countday := 30; if (a >= 5) then countday := 31; if (a >= 6) then countday := 30; if (a >= 7) then countday := 31; if (a >= 8) then countday := 31; if (a >= 9) then countday := 30; if (a >= 10) then countday := 31; if (a >= 11) then countday := 30; if (a >= 12) then countday := 31; end; begin count := 0; write(‘Введите месяц: ‘); readln(a); write(‘Введите день: ‘); readln(d); if (a = 0)or(a > 12)or(d = 0)or(d > countday(a)) then writeln(‘Ошшибка в данных!’) else begin for i:=a to 12 do count := count + countday(i); count := count — d; writeln(‘До нового года осталось ‘, count, ‘ дней.’); end; end.
Источник: izi-otvet.ru
Программа на Python , высчитывающая количество пробелов,символов,слов в тексте.
Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю — Turbo Pascal
В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю. (Справка: 1996 г. — год Крысы — начало очередного цикла.)
Код к задаче: «Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю»
Листинг программы
Program Japan; Var year: integer; begin write(‘Ваш год рождения : ‘); readln(year); case year mod 12 of 0: write(‘Год обезьяны’); 1: write(‘Год петуха’); 2: write(‘Год собаки’); 3: write(‘Год кабана’); 4: write(‘Год крысы’); 5: write(‘Год быка’); 6: write(‘Год тигра’); 7: write(‘Год кролика’); 8: write(‘Год дракона’); 9: write(‘Год змеи’); 10: write(‘Год лошади’); 11: write(‘Год овцы’); end; end.
Источник: studassistent.ru
Составьте программу которая по введенному с клавиатуры номера года
a, b, c, d: integer;
write(‘Введи номер месяца: ‘);
write(‘Введи день месяца: ‘);
if (((a = 1) or (a = 3) or (a = 5) or (a = 7) or (a = 8) or (a = 10) or (a = 12)) and ((b > 31) or (b < 1)))
or ((a = 2) and ((b > 28) or (b < 1)))
Структура алгоритмов и программ
or (((a = 4) or (a = 6) or (a = 9) or (a = 11)) and ((b > 30) or (b < 1))) or (a 12) then
if a = 1 then c:= 0
if a = 2 then c:= 31
if a = 3 then c:= 59
if a = 4 then c:= 90
if a = 5 then c:= 120
if a = 6 then c:= 151
if a = 7 then c:= 181
if a = 8 then c:= 212
if a = 9 then c:= 243
if a = 10 then c:= 273
if a = 11 then c:= 304
if a = 12 then c:= 334;
write(‘Дней до Нового года: ‘, 365 — d)
Источник: vashurok.com