Меньшее из трех заданных чисел abc заменить удвоенным произведением этих чисел. через паскаль .
Vitalyalol
1
09.03.2019 15:50
0
Другие вопросы по теме Информатика
12312312712
24.04.2021 15:32
oforange
24.04.2021 15:28
Dirijabl
24.04.2021 15:26
1234567890859
08.11.2019 15:07
vasilyukandrey
08.11.2019 15:18
MiroshDalia
08.11.2019 13:41
fun2345677904866
08.11.2019 13:44
таня2033
08.11.2019 13:48
БМадина3
08.11.2019 14:04
Популярные вопросы
- Найдите периметр прямоугольника со сторонами, равными: а) 22 м и 14 м; б) 3 м 45...
3 - Решить уравнение 17+х=33+27,70-b=88-45...
3 - Решите уравнения относительно икс : a+bx=c; ax-b=c; a: x+b=c; a-b÷x=c...
1 - Как растения питаются зимой или питаются ли они вообще...
2 - Когда,и кем и где был поставлен первый памятник гером бородинской битвы?...
3 - 1. укажите, какая хозяйственная деятельность коренного населения стран судана и...
2 - Як мені дописати схеми реакцій? а) са+ б)mg(oh)2+ в) mgcl2+ г) caco3+ д) al +...
3 - борьбы с унынием и страхом при вынужденный автономии зарание...
2 - Турист шёл со скоростью 5 км/ч. какое расстояние он за это время?...
3 - Закончите предложения тмутараканский князь олег первым из князей привлек полковцев...
2
program av;
var a,b,c,d,e,f:integer;
begin
writeln('введите 3 числа');
readln(a,b,c);
if (a<b) and (a<c)
then a:=2*a*b*c
else
if (b<a) and (b<c)
then b:=2*a*b*c
else c:=2*a*b*c;
writeln(a,' первое число',b,'второе число',c' третье число') ;
end.