Дано простое число. Найти следующее за ним простое число. сделать проверку на простое число и если это непростое число вывести сообщение, "Это число не является простым, повторите попытку"Программа Паскаль

function func(a: integer): boolean;

var

b,c: integer;

begin

b := 2; c := round(sqrt(a));

while ((a mod b) = 0) and (b <= c) do b := b+1;

func := (b > c)

end;

var a,d,i: integer;

begin

writeln('Введите простое число:');

readln(a);

d :=0;

for i := 2 to a div 2 do  

if a mod i = 0 then  

d := d + 1;

if d <> 0 then writeln('Это число не является простым, повторите попытку!');

repeat

a := a+1;

until func(a);

writeln('Следующее простое число: ', a);

end.

// PascalABC.NET 3.0, сборка 1073
var
  c:char;
begin
  Write('Введите римскую цифру (I,V,X,L,C,D,M): '); Readln(c);
  case c of
  'I':Writeln('1');
  'V':Writeln('5');
  'X':Writeln('10');
  'L':Writeln('50');
  'C':Writeln('100');
  'D':Writeln('500');
  'M':Writeln('1000');
  else Writeln('Вы ошиблись')
  end
end.

// PascalABC.NET 3.0, сборка 1073
var
  n:byte;
  x,y:real;
begin
  Write('Введите номер варианта (1-5): '); Readln(n);
  case n of
  1:begin
    Write('Выражение x^2+y^2, введите x,y: '); Read(x,y);
    Writeln('Результат: ',sqr(x)+sqr(y))
    end;
  2:begin
    Write('Выражение (a+b)^2, введите a,b: '); Read(x,y);
    Writeln('Результат: ',sqr(x+y))
    end;
  3:begin
    Write('Выражение (c-d)^2, введите c,d: '); Read(x,y);
    Writeln('Результат: ',sqr(x-y))
    end;
  4:begin
    Write('Выражение |sin(x)|, введите x: '); Read(x);
    Writeln('Результат: ',abs(sin(x)))
    end;
  5:begin
    Write('Выражение sqrt(a^2+b^2), введите a,b: '); Read(x,y);
    Writeln('Результат: ',sqrt(sqr(x)+sqr(y)))
    end;
  else Writeln('Вы ошиблись')
  end
end.

1)

1 + «Кнопка 5» = 6 этаж

6 + «Кнопка -3» = 3 этаж

3 + «Кнопка 5» = 8 этаж

8 + «Кнопка -3» = 5 этаж

5 + «Кнопка -3» = 2 этаж

2 + «Кнопка 5» = 7 этаж

7 + «Кнопка -3» = 4 этаж

4 + «Кнопка 5» = 9 этаж

2)

Боря мог выиграть все 9 раз:

1. 3 раза Боря показал камень, Алёша – ножницы

2. 4 раза Боря показал ножницы, Алёша – бумагу

3. 2 раза Боря показал бумагу, Алёша – камень

Алёша мог выиграть не более 7 раз:

1. Алёша показывает камень, Боря показывает ножницы – 2 раза. - победа

2. Алёша показывает ножницы, Боря показывает бумагу – 2 раза. - победа

3. Алёша показывает бумагу, Боря показывает камень – 3 раза. - победа

4. Алёша показывает бумагу, Боря показывает ножницы – 1 раз. - поражение

5. Алёша показывает ножницы, Боря показывает ножницы – 1 раз. – поражение

Результат:

Боря мог выиграть 9 раз.

Алёша мог выиграть 7 раз.

3)

Камнев – К, Ножницын – Н, Бумагин - Б

1. Перевезти баулы К

2. Перевезти каждый баул Н по очереди с Н в лодке, баулы оставить, Н вернуть.

3. Перевезти каждый баул Б по очереди с Б в лодке, баулы оставить, Б вернуть.

4. Перевезти Б, Н и К

4)

Для каждой гирьки есть 3 возможных расположения: чаша с грузом (-1), противоположная чаша (1) или вообще не ставить (0). Расположение каждого груза можно выбирать независимо, поэтому если есть n грузов, то их можно разместить Исходя, из этого 3^2<10<3^3, 2 гирьки - как минимум 1 значение останется без решения, 3 гирьки - как минимум 1 будет иметь несколько решений. Оптимальным набором гирек является тот, который содержит в себе степени какого либо числа: Степени двойки не подходят потому как не используют обе части весов; Тройки же подходят, поскольку гири располагаются на разных чашах весов, то их вес относительно взвешиваемого груза может принимать и положительное, и отрицательное значение.

Если, к примеру, нужна гиря весом в 2 единицы, то нужно на чашу весов с грузом положить гирю с весом 1, а на противоположную с весом 3. Вес 1 вычитается из 3 и результат 2. Таким образом можно взвесить любую массу от 1 до 10.

Возьмем 3 гирьки массой: 1, 3, 9 (степени тройки)

Цифра со знаком «-» будет соответствовать гирьке на другой чашке весов.

Уравновешивания всех масс от 1 до 10:

1 = 1.

2 = 3 - 1,

3 = 3,

4 = 3 + 1,

5 = 3 + 3 - 1,

6 = 3 + 3,

7 = 9 - 1 - 1,

8 = 9 - 1,

9 = 9,

10 = 9 + 1

5)

Допустим, минимальное количество шагов получится если постоянно удваивать максимальное значение:

1) Х+Х=2Х 2) 2Х+2Х=4Х 3) 4Х+4Х=8Х(8X+8X>15X) 4)8Х+4Х=12Х 5)12Х+2Х=14Х 6)14Х+Х=15Х – 6 шагов

Иначе, получить максимальное кратное число (неравное 15): 1, 3, 5 – максимальное 5.

Что бы его получить нужно сделать как минимум 3 операции:

1) Х+Х=2Х 2) 2Х+2Х=4Х 3) 4Х+Х=5Х

Или

1) Х+Х=2Х 2) 2Х+Х=3Х 3) 3Х+2Х=5Х

Теперь, нужно сделать (15/5)-1 операций для получения самого числа

4) 5Х+5Х=10Х 5) 10Х+5Х=15Х

ответ(5 шагов):

1) Х + Х = 2Х

2) 2Х + Х = 3Х

3) 3Х + 2Х = 5Х

4) 5Х + 5Х = 10Х

5) 10Х + 5Х = 15Х