Program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
case a of
1..5:
s:=n*2;
6:
s:=10.4;
7:
s:=10.8;
end;
writeln(s);
end.
<span>
n-число минут
a-день недели
если case не проходили то можно сделать if
</span>program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
if(a<6)then s:=n*2;
if(a=6)then s:=10.4;
if(a=7)then s:=10.8;
writeln(s);
end.
Действия:вырасти,согреть,покрасить,проехать
Var
a, b : array [1..1000] of integer;
n, m, i : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
m := 0;
for i := 1 to n do
if a[i] = 0 then
begin
m := m + 1;
b[m] := i;
end;
for i := 1 to m do write (b[i], ' ');
end. <span>
</span>
Экспоненциальная форма числа используется для записи очень больших или очень маленьких чисел.
Ответ:
f(x)=\frac{A_0}{2}+A_n\cos\left(\frac{2n\pi x}{\nu}-\alpha _n\right)
Объяснение:
Картинка прилагается.