Задание 1: составить алгоритм вычисления значений функции y=f (x)

y=sin2x+cosx

Задание 3: Одноклеточная амёба каждые 3 часа делится на 2 клетки, определить, сколько амеб будет через 3, 6, 9, 12, ... 24 часа (составить алгоритм)

1.

var x, y:real;

begin

write ('x = ') ;

readln (x) ;

y:=sin (2*x) + cos (x) ;

writeln ('y = ', y) ;

end.

Пример:

x = 0.5

y = 1.71905354669827

2.

var i, n:integer;

begin

n:=1;

for i:=1 to 24 div 3 do

begin

n:=n*2;

writeln (3*i,': ', n) ;

end;

end.

Результат:

3: 2

6: 4

9: 8

12: 16

15: 32

18: 64

21: 128

24: 256