Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей - id952940620210322 от Morkvap5 22.03.2021 06:48

Question

Информатика: Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей даты 05.05.2005 17: 05: 05 .

Morkvap5 · Accepted Answer

Uses Crt; Const    N = 100; Var    A:array[1..N] of real;    i,k:integer;    S:real; Begin ClrScr; k:=0; Write( Исходный массив: ); For i:= 1 to N do     Begin     A[i]:=Sin(i)*Cos(i);     Write( ,A[i]:0:3);     if A[i] 0 then        Begin        k:=k+1;        S:=S+A[i]        End;     End; WriteLn; WriteLn( Sr = ,S/k); ReadLn End. Результат работы программы: Исходный массив: Исходный массив: 0.455 -0.378 -0.140 0.495 -0.272 -0.268 0.495 -0.144 -0.375 0.456 -0.004 -0.453 0.381 0.135 -0.494 0.276...

Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей даты '05.05.2005 17: 05: 05'.

MOGZ ответил