5. Как можно назвать переменную? A) goto
Б) null
В) true
Г) const
Д) $const_goto
Е) одним из предложенных вариантов

177

287

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

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

nataliakonstan1

Информатика

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

Д) $const_goto Е) одним из предложенных вариантов

настюша290204

Информатика

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

Type dat = record d: integer; m: integer; y: integer end; function jday(pd: dat): longint; // алгоритм 199б // "переход от календарной даты к порядковому номеру дня и обратно" // взят из сборника // "библиотека алгоритмов 151б-200б", м.и.агеев и др., // м.: радио и связь, 1981 // // алгоритм возвращает порядковый номер дня по юлианскому календарю. // работает для дат, начиная с 01.01.4713 до н.э. var c, ya: longint; begin with pd do begin if m > 2 then m : = m - 3 else begin m : = m + 9; y : = y - 1 end; c : = y div 100; ya : = y mod 100; result : = ((146097 * c) div 4) + ((1461 * ya) div 4) + ((153 * m + 2) div 5) + d + 1721119 end; end; function jdate(j: longint): dat; // алгоритм 199б // "переход от календарной даты к порядковому номеру дня и обратно" // взят из сборника // "библиотека алгоритмов 151б-200б", м.и.агеев и др., // м.: радио и связь, 1981 // // алгоритм возвращает дату григорианского календаря по // порядковому номеру дня юлианского календаря. // работает для дат, начиная с 01.01.4713 до н.э. var dd, mm, yy: integer; begin j : = j - 1721119; yy : = (4 * j - 1) div 146097; dd : = (4 * j - 1 - 146097 * yy) div 4; j : = (4 * dd + 3) div 1461; dd : = (4 * dd + 7 - 1461 * j) div 4; mm : = (5 * dd - 3) div 153; dd : = (5 * dd + 2 - 153 * mm) div 5; yy : = 100 * yy + j; if mm < 10 then mm : = mm + 3 else begin mm : = mm - 9; yy : = yy + 1 end; result.d : = dd; result.m : = mm; result.y : = yy end; var d1,d2: dat; begin writeln('введите дату рождения в формате < день месяц год> : '); read(d1.d, d1.m, d1.y); d2: =jdate(jday(d1)+5000); writeln('5000 дней прожито ',d2.d,'.',d2.m,'.',d2.y) end. тестовое решение: введите дату рождения в формате < день месяц год> : 9 10 1997 5000 дней прожито 18.6.2011