A) перший потяг виїхав з пункту a в пункт b. через деякий час з пункта a в тому самому напрямі виїхав другий потяг, швидкість якого на 30 км/год більша, ніж швидкість першого потяга. дослідіть, на якій відстані від пункту à другий потяг наздожене перший залежно від їх швидкостей і часу, через який виїхав другий потяг. створіть для дослідження електронну таблицю і проект у середовищі візуального проектування. в) побудуйте графік функції y = x3 + bx2 + cx + d. підберіть кілька наборів параметрів b, c, d, за яких графік цієї функції тільки один раз перетинає вісь ox. запишіть їх у зошит. підберіть кілька наборів параметрів b, c, d, за яких графік цієї функції три рази перетинає вісь ox. запишіть їх у зошит. створіть для дослідження електронну таблицю.
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969