Регистрация
Руфат2856
12.09.2022 23:20
Информатика
Есть ответ 👍

Excel-де деректер типін не үшін қолданады?​

183
470
Посмотреть ответы 1

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

chuksin2008
chuksin2008
4,7(21 оценок)
// pascalabc.net 3.0, сборка 1128 begin   var d: =readinteger('номер дня (1-31)');   var m: =readinteger('номер месяца (1-12)');   var g: =readinteger('номер года (1900-1999)');   var s: =(12-m) div 10;   var k: =trunc(int((g-1900-s)*365.25)+int((m+12*s-2)*30.59)+d+29);   var n: =k mod 7;   case n of   0: writeln('воскресенье');   1: writeln('понедельник');   2: writeln('вторник');   3: writeln('среда');   4: writeln('четверг');   5: writeln('пятница');   6: writeln('суббота')   end end.

Популярно: Информатика