Ввести 4 числа и отыскать из их малое, наибольшее и сумму(паскаль)
Ввести 4 числа и найти из них минимальное, максимальное и сумму(паскаль) Безотлагательно!!!25б за наихороший ответ
Задать свой вопросprogram chisla;
var
a, b, c, d, min, max, max1, max2, min1, min2, s : integer;
begin
writeln('Введите 4 числа');
read(a, b, c, d);
max:=0;
min:=0;
s:=a+b+c+d;
if agt;b then
begin
max:=a;
min:=b;
end
else
begin
min:=a;
max:=b;
end;
if cgt;d then
begin
max1:=c;
min1:=d;
end
else
begin
max1:=d;
min1:=c;
end;
if maxgt;max1 then
max2:=max
else
max2:=max1;
if mingt;min1 then
min2:=min1
else
min2:=min;
writeln('Наибольшее число: ',max2);
writeln('Меньшее число: ',min2);
writeln('Сумма чисел: ',s);
end.
Держи
1 Метод!
var x1,x2,x3,x4,sum,max,min:integer;
Begin
read(x1,x2,x3,x4);
sum:=x1+x2+x3+x4;
if x1gt;x2 then max:=x1 else max:=x2;
if maxlt;x3 then max:=x3;
if maxlt;x4 then max:=x4;
if x1lt;x2 then min:=x1 else min:=x2;
if mingt;x3 then min:=x3;
if mingt;x4 then min:=x4;
writeln(max);
writeln(min);
writeln(sum);
End.
2 Метод через массив
var a: array[1..4]of integer;
sum,i,max,min:integer;
Begin
min:=2147483647; (если в задачки есть предел вероятного ввода числа ,то нужно поменять min на предел числа+1)
max:=0;
sum:=0;
For i:=1 to 4 do
Begin
read (a[i]);
sum:=sum+a[i];
End;
For i:=1 to 4 do
if a[i]gt;max then max:=a[i];
For i:=1 to 4 do
if a[i]lt;=min then min:=a[i];
writeln(max);
writeln(min);
writeln(sum);
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.