Составить программу. ввести 2 целых числа и определить, является ли число b делителем числа a.

vara,b: longint; beginwrite('введите число a: '); readln(a); write('введите число b: '); readln(b); if a mod b = 0 thenwrite('да')elsewrite('нет'); end.

program zadacha1; uses crt; const n=5;   //размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //     дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); //   этиend; //writeln('прямой вывод'); for i: =1 to n dowriteln(m[i]); writeln('обратный вывод'); for i: =1 to n dowriteln(m[n+1-i]); end.

 

program zadacha2; uses crt; const n=5; // размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //     дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); //   этиend; //writeln('вывод'); for i: =1 to n doif i mod 2 = 0 then writeln(m[i]); end.

 

program zadacha3; uses crt; const n=5; // размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //     дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); //   этиend; //writeln('вывод'); for i: =1 to n doif (n+1-i) mod 2 < > 0 then writeln(m[n+1-i]); end.

Var ar: array[1..10] of integer; ar1: array[1..10] of integer; ar2: array[1..10] of integer; i,n1,n2: integer; begin; randomize; writeln('first array: '); for i: =1 to 10 do  begin;   ar[i]: =random(10,99);   if odd(ar[i]) then //если нечётно     begin;     inc(n1);     ar1[n1]: =ar[i];     end     else     begin;     inc(n2);     ar2[n2]: =ar[i];     end;     write(ar[i]: 4);   end; writeln; writeln('array a: '); for i: =1 to n1 do write(ar1[i]: 4); writeln; writeln('array b: '); for i: =1 to n2 do write(ar2[i]: 4); end.