Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
30 ноября 2022 02:08
736
Написать программу нахождения суммы большего и меньшего из 3-х чисел.для "паскаль"
1
ответ
Var a,b,c,min,max,s: integer;
begin
write('Ведите числo а '); readln(a);
min:=a; max:=a;
write('Ведите числo b '); readln(b);
if b<min then min:=b;
if b>max then max:=b;
write('Ведите числo c '); readln(c);
if c<min then min:=c;
if c>max then max:=c;
writeln('Сумма min + max = ',min+max);
end.
begin
write('Ведите числo а '); readln(a);
min:=a; max:=a;
write('Ведите числo b '); readln(b);
if b<min then min:=b;
if b>max then max:=b;
write('Ведите числo c '); readln(c);
if c<min then min:=c;
if c>max then max:=c;
writeln('Сумма min + max = ',min+max);
end.
0
·
Хороший ответ
2 декабря 2022 02:08
Остались вопросы?
Еще вопросы по категории Информатика
Заполните массив из 10 элементов степенями числа 2 (от 21 до 2N), так чтобы элемент с индексом i был равен 2i. Паскаль...
Что такое распознавание текста?...
Для сравнения одна из популярных социальных сетей в конце 2021 года генерировала около петабайта данных в день. 1Пб = 1024б. Сколько миллиардов по...
Что вы можете сказать о массиве, сформированном следующим образом? а) for i :=1 to 10 do a[i] :=random(101)-50 б) for i :=1 to 20 do a[i] := i в) fo...
в 2008 году он был включен в Национальный футбольный зал славы в качестве члена Национальной футбольной лиги (НФЛ) Зал славы. (1251); setconsoleoutp...