Это, если не учитывать, что введённые числа могут быть одинаковы
program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (x>x1) and (x>x2) then a:=x
else if (x1>x) and (x1>x2) then a:=x1
else if (x2>x) and (x2>x1) then a:=x2;
if (x<x1) and (x<x2) then a1:=x
else if (x1<x) and (x1<x2) then a1:=x1
else if (x2<x) and (x2<x1) then a1:=x2;
a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);
end.
VAR
x, y, xmin, xmax, dx : Real;
BEGIN
Writeln('Табулирование функции.');
xmin := -3; xmax := 2; dx := 0.5; x := xmin;
WHILE x<=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.
program test;
var x,y: integer;
begin
read(x,y);
if (x>=-3) and (x<=2)
and (y>=-1) and (y<=1)
then write ('входит') else write ('не входит');
end.
"Всемирная паутина".интернет нас окружает повсюду..в школе , дома , в автобусе и то есть вай фай... Интернет -это возможность общаться с людьми с другого конца света ...видеть близких тебе людей пусть даже если они находятся очень далеко..в наше время интернет есть почти в каждом доме..интернет как паутина охватывает весь земной шар....находясь в доме мы можем с чьего то компа скачать музыку или что то ещё....без инета наша жизнь была бы не такой интересной ....нас всех объединяет интернет!!! как и паутину -нить!