Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
30 ноября 2022 02:08
860
Написать программу нахождения суммы большего и меньшего из 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
Остались вопросы?
Еще вопросы по категории Информатика
ПОМОГИТЕ ПОЖАЛУЙСТА!!! Фрагмент электронной таблицы содержит числа и формулы. Запишите значения в ячейках диапазонов C2:C3, D2:D3, E2:E3, F2:F3, если...
Факсимильный аппарат- это...
Укажите основную позицию больших пальцев на клавиатуре • shift-shift •alt-alt •space-space •a-o...
Каких программах можно создать компьютерную презентацию? Microsoft Word Impress Microsoft Excel Microsoft PowerPoint...
“Крестьянину нужно перевезти через реку волка, козу и капусту. Но лодка такова, что в ней может поместиться только крестьянин, а с ним или один волк,...