На ленте задан массив. вычислить остаток от деления длины заданного массива на 5. каретка располагается над первой ячейкой массива.

1)          а: =b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)          a) readln(а); readln(х);

б) writeln(z)

в)      var b,c : real; (чаще всего используется при нахождении вещественных чисел)

              var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d: =d+20; д) z : = x + y; ( : = это знак присвоения) 3)  program pr1; var w,s,b: integer; begin readln (s, b); w: = ((12*s) + (26*b)); writeln (w); end. 4) запишите на языке паскаль следующие условия: а) f > 105 ; б)   a< 184   ; в)   w< > 181;   г)   z> 0; д) z< =d; е)  (y*x)> =(d+w); ж)   (w-d)< 88; з) f> =1; 5. запишите на языке паскаль команду ветвления для решения следующей : а)  if   a< > 21 then a: =a+28 else a: =a-51; б)  if   a mod   2=0 then a: =a+5 else a: =a-12; 6. запишите на языке паскаль команду цикла для решения следующей : а)   program pr1; var j,p: integer; begin j: =1; p: =0; while j> =66 do begin p: = p*j; j: =j+1: writeln (‘произведение чисел = ‘, p); end. б)  

program pr1;

var n: integer;

begin

for n: =1 to 7 do

writeln('trud');

end.

№1: program oy; var x,y: real; begin   write('введите координаты точки: ');   readln(x,y);   if x = 0 then writeln('точка лежит на оси y')  else     writeln('точка не лежит на оси y'); end.№2: program men; var a,b: real; procedure zamena(var a,b: real); var x,y: real; begin    x: =a;     y: =b;     a: =(x+y)*(x+y);     b: =x*x-y*y; end; begin  writeln('введите два числа: ');   readln(a,b);   if a> b then zamena(a,b) else      zamena(b,a);     writeln('числа после замены: ');   writeln(a,' ',b); end.