Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 875 б
- Dwayne_Johnson 845 б
30 ноября 2022 02:08
656
Написать программу нахождения суммы большего и меньшего из 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
Остались вопросы?
Еще вопросы по категории Информатика
Символы, которые можно использовать для записи программы: 5 f G Э ы...
Определите значение переменной b после выполнения фрагмента алгоритма записанного в виде блок-схемы...
Документ объемом 10 Мбайт можно передать с одного компьютера на другой двумя способами: А) Сжать архиватором, передать архив по каналу связи, распаков...
Какой сигнал называют дискретным?...
3. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V и площадь поверхности S.Справка: V = a∙b∙c, S = 2∙(a∙b + b∙c + a∙c)...
Все предметы