Теория струн оперирует такими маленькими размерами (порядка планковской длины) и такими огромными энергиями (недостижимыми с современным уровнем технологий), что экспериментально проверить хоть какие-нибудь ее предсказания очень трудно. Одним из немногих является эффект Казимира, который обещает, что две параллельные поверхности, находящиеся в вакууме, будут притягиваться из-за квантовых свойств вакуума, если находятся достаточно близко друг от друга. Это происходит потому, что в ограниченном пространстве могут рождаться не любые виртуальные частицы, а только те, длина волны которых целое число раз укладывается на расстояние между пластинами. А раз не все частицы могут появляться, то и давление, которое они создают, меньше, чем снаружи, где такого ограничения нет. Вот пластины и притягиваются. (Эффект реально обнаружен и экспериментально подтвержден.) Напишите программу, которая обрабатывает экспериментальные данные (энергии виртуальных частиц).
Проводится N экспериментов. Для каждого из них будет вводиться значение достигнутой энергии. По величине этой энергии можно определить длину волны частицы, которая могла появиться в этом эксперименте по формуле: λ = hc/E = 12431.25/E (Ангстрем)
Однако, если энергия больше 5000 эВ, то эксперимент становится опасным, его нужно прекратить (опять немного погрешим против физики, на самом деле, опасная энергия значительно больше!).
Нужно определить, сколько раз в каждом из них наблюдался эффект Казимира, то есть длина волны каждой полученной частицы целое число раз укладывалась на расстоянии d между пластинами.
Будем считать, что условие выполняется, если число волн отличается от целого числа не более, чем на 0.1 из-за погрешностей.
Формат ввода
Целое число d — расстояние между поверхностями в Ангстремах (10-10 м).
Целое число N — количество циклов экспериментов, каждый цикл проводится до появления строки КОНЕЦ ЭКСПЕРИМЕНТА, если раньше не встретится опасное значение энергии. В этом случае данный цикл прекращается.
Затем вводятся целые числа — сами результаты экспериментов — значения энергии виртуальных частиц в в электрон-Вольтах (эВ).
Формат вывода
Для каждого цикла экспериментов выводится номер цикла (с 1) и целое число — сколько раз наблюдался эффект Казимира.
После окончания последнего цикла экспериментов вывести строку в формате: Общее количество успешных экспериментов: {количество}
Успешными считаются эксперименты, в которых эффект был обнаружен.
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.