1. составить алгоритм и программу вывода на экран удвоенных значений целых чисел от 5 до 15. 2. составить алгоритм и программу вывода на экран таблицы значений y: y=sin3x для всех значений x от 1 до 2 с интервалом 0,3. 3. вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (а> 0), вводимых с клавиатуры.

№1 var   x: integer; begin   for x: =5 to 15 do writeln('x=',x: 2,'  y=',2*x) end. результат выполнения программы: x= 5  y=10 x= 6  y=12 x= 7  y=14 x= 8  y=16 x= 9  y=18 x=10  y=20 x=11  y=22 x=12  y=24 x=13  y=26 x=14  y=28 x=15  y=30 №2 var   x: real; begin   x: =1;   while x< =2 do begin       writeln('x=',x: 4: 1,'    y=',sin(3*x): 8: 5);       x: =x+0.3   end end. результат выполнения программы: x= 1.0    y= 0.14112 x= 1.3    y=-0.68777 x= 1.6    y=-0.99616 x= 1.9    y=-0.55069 №3 const   n=40; var   i: integer;   a: real; begin   for i: =1 to n do   begin write('a',i,'='); read(a); writeln('s=',sqr(a)) end end. фрагмент работы программы: a1=2.6 s=6.76 a2=4.18 s=17.4724 a3=1 s=1 a4=17 s=289 a5=

var

mas : array[1..15] of integer;

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;