Паскаль Вариант 5.

1. Написать программу, которая найдет частное цифр всех целых двузначных чисел. Так как любое число состоит из цифр от 1 до 9, то: а:=1… 9; с:=1… 9; R:=а/с;

2. Написать программу нахождения всех целых чисел n на промежутке от -30 до 150, с шагом +1, где все числа умножаются на 4: R:=n*4.

3. Вычислить и напечатать значения функции: У=X2-4, при значениях аргумента Х, изменяющихся от 2 до -15 с шагом -1.

4. В бригаде птичников, рождается N гусей в день. В каждый следующий день гусей рождается на 1 гусенка больше. Сколько всего будет рожденных гусят за неделю?

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.