1) Какое значение получится при вычислении следующего выражения, записанного на Паскале?
6 div 5 * 3 – 5 mod 2 + 17 div 3
2) Напиши на Паскале выражение для определения второй справа цифры в записи целого числа N (10 ≤ N ≤
99). Например: для числа N = 43 результатом будет цифра 4.
3) Запиши на Паскале формулу: 1
√ +3
+ (1 + )
2
.
4) Дан фрагмент программы на Паскале. Используя трассировочную таблицу, найди для данного фрагмента
программы. Чему будет равно значение переменной s.
a:=1; b:=1;
while (a+b) < 16 do
begin
a:=a+1; b:=b+2
end;
s:=a+b
5) Задано заполнение массива: for i:=1 to 5 do a[i]:=i*i.
Чему равно a[2]+a[5]?
6) Составь блок-схему и определи, что выведет программа после выполнения на Паскале:
program test;
var x, y: integer;
begin
x:=2; y:=10;
if x>0 then
if y<8 then
begin x:=x+2; y:=y-1 end
else
begin x:=x+3: y:=y*2 end
else
begin x:=1; y:=3 end;
writeln (‘ x= ‘ ,x, ‘ y= ‘, y);
end.
7) С блок-схемы или трассировочной таблицы определи значения переменных s и i после
выполнения фрагмента программы на Паскале:
s:=0; i:=-3;
while i < 2 do
begin if i < 0 then A:=i*i else A:=i;
s:=s+A; i:=i+1
end;

program pr10;

uses crt;

var

  i: integer;

  t: real; // рабочая переменная

  i: byte; // счетчик массива

  k: byte; // параметр цикла

  a: array[1..15] of real;

  n: byte; // размерность цикла

begin

  clrscr;

  write('введите размерность: ');

  readln(n);

  writeln('введите ',n,' элементов');

  for i: =1 to n do

      readln(a[i]);

      writeln('исходный массив: ');

  for i: =1 to n do

      write(a[i]: 5: 1,' ');

      readln;

// блок обработки

  for k: =1 to n do

      for i: =1 to n-k do

        if(a[i]> a[i+1]) then

// перестановка

            begin

              t: =a[i];

              a[i]: =a[i+1];

              a[i+1]: =t;

            end;

  writeln('отсортированный массив: ');

  for i: =1 to n do

      write(a[i],' ');

      writeln;

      readln;

end.

я хз как правильно проверить простое число или нет. вот код, который просто сортирует массив по возрастанию.  

type cl = class

  a: integer;

  constructor create(b: integer);

  procedure setval(b: integer);

  function getval: integer;

  procedure sq;

end;

constructor cl.create(b: integer);

begin

  a : = b;

end;

procedure cl.setval(b: integer);

begin

  a : = b;

end;

function cl.getval: integer;

begin

  getval : = a;

end;

procedure cl.sq;

begin

  if a < 0 then

    writeln('a ^ 2 = ', a * a)

  else

    writeln('error');

end;

var

  obj: cl;

  a : integer;

begin

  write('a = ');

  readln(a);

  obj : = cl.create(a);

  obj.sq;

  readln;

  obj.destroy;

end.