Меньшее из трех заданных чисел ABC заменить удвоенным произведением этих чисел. Через паскаль пожалуйста.
5-9 класс
|
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.
Другие вопросы из категории
S=S+A
PRINT A;
NEXT A
PRINT S
END
Решите пожалуйста.Желательно полный ответ.
информации.сколько всего пар перчаток было в ящике?
Читайте также
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы