Предмет: Информатика,
автор: Rt20001
Составьте программу на языке Паскаля , которая находит сумму наименьшего и наибольшего из 3 введенных с экрана числа
Ответы
Автор ответа:
0
Это, если не учитывать, что введённые числа могут быть одинаковы
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.
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: vokaelena
Предмет: Английский язык,
автор: viktoriazanik81
Предмет: Литература,
автор: 1smetanka
Предмет: История,
автор: Afanu
Предмет: Математика,
автор: ritacherkashin