Задание 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