#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 a,b,i,z,x:integer;
q:array [1..20] of integer;
begin
write('Верхняя граница='); readln(a);
write('Нижняя граница='); readln(b); x:=a-b; randomize;
for i:=1 to 20 do
begin
q[i]:=random(x)+b;
write(q[i],' ');
if (q[i]mod 2=0) then z:=z+q[i];
end;
writeln;
write('Сумма четных чисел=',z);
end.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
Единственный возможным вариантом считаю, обращение в техническую поддержку. Там процедура не особо сложная, возможно спросят: имя аккаунта, когда создан, что написано в профиле, какая была почта, старый телефон, место откуда последний раз заходил. Но восстановлению подлежит.
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.
