Составьте программу на языке Паскаля , которая находит сумму наименьшего и наибольшего из 3 введенных с экрана числа
64
ОТВЕТЫ
Это, если не учитывать, что введённые числа могут быть одинаковы
program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite (Введите число: );
readln (x);
write (Введите число: );
readln (x1);
write (Введите число: );
readln (x2);
if (xgt;x1) and (xgt;x2) then a:=x
else if (x1gt;x) and (x1gt;x2) then a:=x1
else if (x2gt;x) and (x2gt;x1) then a:=x2;
if (xlt;x1) and (xlt;x2) then a1:=x
else if (x1lt;x) and (x1lt;x2) then a1:=x1
else if (x2lt;x) and (x2lt;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 (xgt;x1) and (xgt;x2) then a:=x
else if (x1gt;x) and (x1gt;x2) then a:=x1
else if (x2gt;x) and (x2gt;x1) then a:=x2;
if (xlt;x1) and (xlt;x2) then a1:=x
else if (x1lt;x) and (x1lt;x2) then a1:=x1
else if (x2lt;x) and (x2lt;x1) then a1:=x2;
a2:=a+a1;
writeln (Cумма самого большого и самого маленького числа, введённого вами: ,a2);
end.
291
Отв. дан
Dianagrinn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Кириак
У племени "чичевоков" в алфавите 20 буквы и 10 ...
2019-02-01 05:18:53
Gavinn
Сколько секунд займет передача 1 кбайт данных со скоростью ...
2019-02-01 05:17:30
Saottan
Ученик собирался на вечер, когда погас свет в комнате,где ...
2019-02-01 05:15:54
Nanabatre
Срочно!!! Составить алгоритм и программу в ПаскалеВывести n-ое число ...
2019-02-01 05:14:17