..............................................
.
.....
.....
Це означає як шукати. Через пошукові системи.
Program n1;
var
x:integer;
begin
writeln('Введите число'); readln(x);
if (x mod 4=0) then writeln('Является') else writeln('Не является');
end.
program n2;
var
a,b:integer;
begin
writeln('Введите первое число'); readln(a);
writeln('Введите второе число'); readln(b);
if a>b then writeln(a*b*2,' ',(a+b)/2) else writeln((a+b)/2,' ',a*b*2);
end.
<span>может быть так:
</span>var x1,x2,y1,y2:integer;
a,b:real;
begin
write ('Введите x1 и x2: ');
readln (x1,x2);
write ('Введите y1 и y2: ');
readln (y1,y2);
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.
5 единиц
Пишешь в ответе так: 11111