//Pascal ABC.NET 3.1 сборка 1219
Const
m=5;
n=4;
Var
ma:array[1..n,1..m]of integer;
i,j,k:integer;
begin
k:=0;
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(10);
write(ma[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
for i:=1 to n do
if ma[i,j] mod 2<>0 then inc(k);
if k=n then
begin
writeln(j);
exit;
end;
k:=0;
end;
writeln('0');
end.
Пусть среднее арифметическое, посчитанное Васей, равно Х, тогда:
(A + B) / 2 = Х
A + B = 2X
B = 2X - A
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.