Const
<span> p = 3.14; </span><span>//число "пи"
</span>
var
<span> N: </span>byte;
<span> R, D, L, S: </span>real;
begin
{Сообщаем кратко данные задачи: }
writeln(' Пусть в окружности:');
writeln(' 1)R - радиус;');
writeln(' 2)D - диаметр;');
writeln(' 3)L - длина;');
writeln(' 4)S - площадь круга.');
writeln;
writeln(' Введите номер одной из величин (от 1 до 4):');
write(' N = ');
<span> readln(N); </span>//Вводим номер величины.
{Здесь используем цикл. Запрашивается ввод до тех пор, пока
номер N не будет лежать в диапазоне [1, 4]:}
<span> </span>while<span> (N < 1)</span>or(N > 4)<span> do</span>//Условие вхождения в цикл.
<span> </span>begin
writeln(' Такого номера здесь нет!');
writeln(' Введите другой номер (от 1 до 4):');
write(' N = ');
<span> readln(N) </span>//Снова вводим номер.
<span> </span>end;
writeln;
{Сообщаем о том, какую величину мы ввели,
а потом запрашиваем ввести её значение:}
write(' Это '<span>); </span>
<span> </span>case<span> N </span>of
<span> 1: </span>begin
writeln('радиус окружности. Введите его значение:');
write(' R = ');
<span> readln(R) </span>
<span> </span>end;
<span> 2: </span>begin
writeln('диаметр. Введите его значение:');
write(' D = ');
<span> readln(D) </span>
<span> </span>end;
<span> 3: </span>begin
writeln('длина окружности. Введите её значение:');
write(' L = ');
<span> readln(L) </span>
<span> </span>end;
<span> 4: </span>begin
writeln('площадь круга. Введите её значение:');
write(' S = ');
<span> readln(S) </span>
<span> </span>end
<span> </span>end<span>; </span>
writeln(' Тогда для остальных величин будем иметь:');
writeln;
<span>{Используя соотношения D = 2*R, L = 2*p*R, S = p*sqr(R), </span>
выразим последовательно три величины через четвертую: }
<span> </span>case<span> N </span>of
1:<span> begin</span>{Здесь дано R. Находим D, L и S: }
writeln(' диметр: D = ', 2 * R);
writeln(' длина: L = ', 2 * p * R);
writeln(' площадь: S = '<span>, p * sqr(R)) </span>
<span> </span>end;
<span> 2: </span>begin{Здесь дано D. Находим R, L и S: }
writeln(' радиус: R = ', D / 2);
writeln(' длина: L = ', p * D);
writeln(' площадь: S = ', p * sqr(D / 2))
<span> </span>end;
<span> 3: </span>begin{Здесь дано L. Находим R, D и S: }
writeln(' радиус: R = ', L / p / 2);
writeln(' диаметр: D = ', L / p);
writeln(' площадь: S = '<span>, sqr(L) / p / 4 ) </span>
<span> </span>end;
<span> 4: </span>begin{Здесь дано S. Находим R, D и L: }
writeln(' радиус: R = ', sqrt(S / p):7:4);
writeln(' диаметр: D = ', 2 * sqrt(S / p):7:4);
writeln(' длина: L = ', 2 * sqrt(p * S):7:4)
<span> </span>end
<span> end </span>
end<span>.</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure CreateFile(p:string);
begin
var f:=OpenWrite(p);
Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
Writeln(f,'The quick brown fox jumps over the lazy dog');
Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
f.Close
end;
procedure UpFile(p:string);
begin
var a:=ReadAllLines(p);
WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;
begin
var p:=ReadlnString('Введите имя файла (можно, с путём):');
CreateFile(p);
UpFile(p);
// контроль работы
ReadAllLines(p).Println(NewLine)
end.
<u>Пример работы</u>
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY
static void Main()
{
foreach (string s in Console.ReadLine().Split(' '))
if (s.IndexOf('k') > -1)
Console.Write(s + ' ');
Console.ReadLine();
}
n = int(input())
m = int(input())
ans = 0
for i in range(m, n-1, -1):
buf = 0
for y in str(i)[1:]:
y = int(y)
if y%2==0 and y != 0:
buf += 1
if (y%4==0 and y!=0) or buf >= 2:
ans = i
break
if ans != 0:
print(i)
break