Таблица:
вадим олег высокий миша
скрипка ----- ----- +
флейта ----- + ----
альт + ---- ----
кларнет + ---- ----
гобой ---- + ----
труба ---- ---- + ( миша : скрипка и труба)
Программу я не смогу написать, но примерный алгоритм дам.
Если (M = 1, 3, 5, 7, 8, 10, или 12) И (D <= 30), то (D = D + 1)
Если (M = 1, 3, 5, 7, 8, 10) И (D = 31), то (M = M + 1, D = 1)
Если (M = 12) И (D = 31), то (G = G + 1, M = 1, D = 1)
Если (M = 4, 6, 9, 11) И (D <= 29), то (D = D + 1)
Если (M = 4, 6, 9, 11) И (D = 30), то (M = M + 1, D = 1)
Если (M = 2) И (D <= 27), то (D = D + 1)
Если (M = 2) И (G mod 4 <> 0) И (D = 28), то (M = 3, D = 1)
Если (M = 2) И (G mod 4 = 0) И (D = 28), то (D = D + 1)
Если (M = 2) И (G mod 4 = 0) И (D = 29), то (M = 3, D = 1)
Если (M = 2) И (G = 1900 или 2100) И (D = 28), то (M = 3, D = 1)
В последней строчке я учёл разницу между Григорианским и Юлианским календарями.
По Юлианскому после 28.02 1900 или 2100 года наступит 29.02.
По Григорианскому наступит 01.03.
Вот) Тут используется формула
var
i: integer;
begin
i := 1;
while exp(i*ln(5)) <= 25000 do
begin
writeln('A_', i, ' = ', exp(i*ln(5)));
inc(i);
end;
end.
Program z7; Var i,n,s:integer; a:array [1..1000] of integer; p:real;Begin n:=0; for i :=1 to 1000 do begin read(a[i]); n:=n+1; if (a[i]= 0) then break; end; for i :=1 to n do begin write(a[i],' '); end; s:=0; for i:=1 to n do s:=s+a[i]; p:=s/n; writeln; writeln(p:3:3);End.