Var a,b:integer;
beginwriteln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if a>=b then writeln('Наименьшее число равняется ',b)
else writeln('Наименьшее число равняется ',a);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Введите начальную скорость снаряда, расстояние до стены, высоту стены');
var (v,S,h):=ReadReal3;
var A:=ReadReal('Введите угол наклона ствола пушки');
if v<=0 then begin
Writeln('Скорость должна быть положительной');
Exit
end;
if v>1000 then begin
Writeln('Скорость слишком велика');
Exit
end;
if S<=0 then begin
Writeln('Расстояние должно быть положительным');
Exit
end;
if h<=0 then begin
Writeln('Высота стены должна быть положительной');
Exit
end;
if A<=0 then begin
Writeln('Пушка не должна стрелять в землю');
Exit
end;
if A>=pi/2 then begin
Writeln('Пушка направлена не в сторону стены');
Exit
end;
var L:=S*Tan(A)-9.81*S/(2*v*v*Sqr(Cos(A)));
if L>h then begin
Writeln('Снаряд не попал в стену...');
Exit
end;
if L<0 then Writeln('Снаряд не попал в стену...')
else Writeln('Попал!!!')
end.
<u>Пример</u>
Введите начальную скорость снаряда, расстояние до стены, высоту стены
300 500 8.5
Введите угол наклона ствола пушки 0.2
Снаряд не попал в стену...
1/4*1024(байт)=256 байт/64=4 байта*8 бит=32 бита (вес 1 символа)
2^32=<span><span>4294967296 символов в алфавите</span></span>
Или одна тройка или две единицы. Тройка больше, возьмем ее
нет восьмерок или не больше двух девяток. Ок возьмем без восьмерок, и все девятки как наибольшее
Старшие разряды больше, младшие меньше
Получаем 999993
Const xn=1.5; xk=4.5; h=0.05;
var x,y,xmin,ymin:real;
i:integer;
begin
x:=xn;
xmin:=x; ymin:=exp(x)-x*x*x;
for i:=1 to round((xk-xn)/h) do
begin
x:=x+h;
y:=exp(x)-x*x*x;
if y<ymin then
begin
xmin:=x; ymin:=y;
end;
end;
writeln('xmin = ',xmin:5:2,' ymin = ',y:7:5);
end.
Результат:
<span>xmin = 3.75 ymin = -1.10787</span>
