#include<iostream>
#include<math.h>
using namepacpase std;
int main()
{
int n,x[1000],y[1000],z[1000],x,y,z,i;
cin>>n;
for(i=1;i<=n;i++)
cin>>x[i];
for(i=1;i<=n;i++)
cin>>x[i];
for(i=1;i<=n;i++)
cin>>y[i];
for(i=1;i<=n;i++)
cin>>z[i];
for(i=1;i<=n;i++)
{
d=sqr((x[i]-x)*(x[i]-x)+(y[i]-y)*(y[i]-y)+(z[i]-z)*(z[i]-z))
cout<<d;}
return 0;
}
var x:integer;
Begin
write ('Введите х='); readln(x);
if x>0 then
write('Положительное')
else
write('Отрицательное');
<em>if x=0 then write('равно нулю')
</em>
end.
ну просто добавить еще одно условие. Ну можно еще условие в условие добавить, а как еще хз.
===== 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.
Ромб
........................