Program chislo;
Var a,s:integer;
Begin
Write (a);
Read (a);
s:=a div 10; для двузначного
s:=a div 100; для трехзначного
Writeln ('Первая цифра числа ',s);
End.
Эскейп, интер, шифт, ужас лук, контрл, альт, бэкспэйс, дэлет, инсерт, хом, энд, пэйдж ап, пэйдж доун, нам лок
Пусть "1" - золотая монета, тогда "0" - серебряная. Из условия задачи следует, что можно составить только две возможные комбинации расположения монет: 0101 и 1010. Тогда Архимеду нужно взвесить две центральные монеты. Если левая окажется тяжелее, тогда получится первая цепочка, т. е. серебряная, золотая, серебряная, золотая, иначе вторая, т.е. золотая, серебряная, золотая, серебряная.
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<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
Снаряд не попал в стену...
