1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Ты изучил основы программирования на языке паскаль? тогда внимательно ознакомься с условие и вычисли, чему будет равна функция z при выполнении фрагмента программы: if (x> -2) and (x< 2) then begin z: =sqrt(x)+1; end; if (x> =3) and (x< =5) then begin z: =sqr(x)•2 end; if (x> =6) and (x< =8) then begin z: =x div 2; end else writeln(‘нет решений’); введи значение переменной х: 8. вычисляем значение функции z при выплнении фрагмента программы: .
z:= x div 2 ;
ответ 8 div 2 = 4 z:=4