Написать в паскале определить количество дней в году, который вводит пользователь. в високосном годе - 366 дней, тогда как в обычном 365

185

380

Посмотреть ответы 2

Ответы на вопрос:

Простоелена26

Информатика

4,6(66 оценок)

Ввисокосном годе - 366 дней, тогда как в обычном 365. високосными являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400. var year: word; begin write('input year: '); readln(year); if year mod 4 = 0 then if (year mod 100 = 0) and (year mod 400 < > 0) then year : = 365 else year : = 366 else year : = 365; writeln('the number of days in the year: ', year); end.

НЕВЕСОМАЯ67

Информатика

4,4(22 оценок)

Program k1; var a: integer; begin writeln ('введите число от 1 до 20'); readln (a); if a = 1 then writeln('мне 1 год'); if a = 2 then writeln('мне 2 года'); if a = 3 then writeln('мне 3 года'); if a = 4 then writeln('мне 4 года'); if a = 5 then writeln('мне 5 лет'); if a = 6 then writeln('мне 6 лет'); if a = 7 then writeln('мне 7 лет'); if a = 8 then writeln('мне 8 лет'); if a = 9 then writeln('мне 9 лет'); if a = 10 then writeln('мне 10 лет'); if a = 11 then writeln('мне 11 лет'); if a = 12 then writeln('мне 12 лет'); if a = 13 then writeln('мне 13 лет'); if a = 14 then writeln('мне 14 лет'); if a = 15 then writeln('мне 15 лет'); if a = 16 then writeln('мне 16 лет'); if a = 17 then writeln('мне 17 лет'); if a = 18 then writeln('мне 18 лет'); if a = 19 then writeln('мне 19 лет); if a = 20 then writeln('мне 20 лет'); end; эту программу можно было легче через оператор case делать) но мы не ищем легких путей