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=

program z1;

uses crt;

var a,i: integer;

        p: longint;

begin

    clrscr;

      p: =1;  

      write('введите число а: ');

      readln(a);  

      for i: =a to 100 do  

          p: =p*a;

    writeln('произведение всех чисел от  ',a,'до 100: ',p);

    readkey;

end. 

 

program z2;

uses crt;

var s,i: integer;

i: =2; s: =0;

while(i< =98) do

    begin 

        s: =s+i;  

          i: =i+2;

end;

    clrscr;

      write('сумма последовательности: ',s);    

    readkey;

end. 

 

program z3;  

uses crt;

var a,i: integer;

begin     

      clrscr;

      a: =0;      

      for i: =100 to 999 do

          if ((i mod 5)=0 and (i mod 21)=0) then

                a: =a+1;                    

      write('количество 3-значных чисел делящихся без остатка на 5 и 21: ',a);  

    readkey;

end. 

 

program z4;  

uses crt;

var a,i,s: integer;

begin     

      clrscr;

        s: =10:  

        write('введите количество тренировочных дней: ');    

        readln(a);

          for i: =2 to a do

                s: =s+3;

        write('суммарное расстояние: ',s);        

readkey;

end. 

 

program z5;

uses crt;

var a,i,n,s: integer;    

begin     

      clrscr;

      write('введите количество отрядов: ');

      readln(n);  

      s: =0;  

 

      for i: =1 to n do

          begin

                write('введите количество детей в  ',i ,'-м отряде: ' );  

 

                readln(a);

                clrscr;  

                s: =s+a;

          end;      

    writeln;

    writeln('общее количество детей в лагере: ',s);

    readkey;

end. 

 

1 :

: var a: array[1..10] of integer;

s,s1: longint; i,n: integer; beginwriteln('skolko elementov'); read(n); s: =0; s1: =0; randomize; for i: =1 to n dobegina[i]: =random(10); end; for i: =1 to n dobeginwrite(a[i]: 4); end; writeln; for i: =1 to n dobeginbeginif (a[i] mod 2=0) then s: =s+a[i] else s1: =s1+a[i]; end; end; writeln('summa chetnix chisel = ',s); writeln('summa ne chetnix chisel ',s1); end.

  2 : cоnst max=20; var a: array [1..max] of integer; maximum,i: integer; begin for i: =1 to max do readln(a ); maximum: =a[1]; for i: =2 to max do if a> maximum then maximum : = a; writeln(maximum); end. p.sможешь не сомневаться в правильности этого решения,мы 2 дня назад точно такие же в классе делали (т.е с учителем).