С электронной таблицы вычислить углы для настильной и навесной стрельбы в пустоте для попадания в цель на расстоянии 1500 м на высоте 200 м при начальной скорости снаряда 300 м/си радиусе цели 1 м. Проверить полученные результаты на учебной программе «Полет снаряда, выпущенного из пушки».

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end

пщояк 17 27 16 33 17

нщёп 15 27 7 17