Составьте программу ** языке Паскаля , которая находит сумму наименьшего и наибольшего из...

0 голосов
31 просмотров

Составьте программу на языке Паскаля , которая находит сумму наименьшего и наибольшего из 3 введенных с экрана числа


Информатика (12 баллов) | 31 просмотров
0

це завдання ще актуальне?

0

мені варто починати його виконувати?

Дан 1 ответ
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 (xelse if (x1else if (x2
a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);

end.

(832 баллов)