Значение переменной х ввести с клавиатуры. переменной у присвоить значение 5. вывести на экран информацию «знач.х»+5= «итог. сумма». 2. переменной х присвоить значение 7. переменной р присвоить значение, равное квадрату х. вывести значения переменных х и р (через запятую значение х увеличить на х. переменной р присвоить значение, равное корню квадратному из х. вывести значения переменных х и р (через запятую). diktant 2 1. значение переменной х присвоить в программе. при неотрицательном значении х переменной у присвоить значение, равное корню квадратному из х. в противном случае, переменной у присвоить значение, равное квадрату х. вывести на экран значение х и значение у. 2. двум произвольным переменным присвоить произвольным образом соответственно 2 числа. двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. сделать пож

program p; var      n, i : integer;       max, imax: integer; begin      write('enter 10 numbers ');             for i : = 1 to 10 do      begin            read(n);                         if i = 1 then            begin                  max : = n;                   imax : = i;             end            else                  if n > max then                  begin                        max : = n;                         imax : = i;                   end;       end;             writeln('max = ', max);       writeln('index = ', imax);             readln; end.

1)

program pr; uses crt; var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a< 0) and (a mod 2=0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.

2)program pr; uses crt; var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a> 0) and (a mod 2< > 0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.