Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Меньшее из трех заданных чисел ABC заменить удвоенным произведением этих чисел. Через паскаль пожалуйста.

5-9 класс

Pokladdanila 05 янв. 2015 г., 23:05:44 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ira64
06 янв. 2015 г., 1:55:55 (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. 

 

 

Ответить

Другие вопросы из категории

FOR A=10 TO 1 STEP -3

S=S+A
PRINT A;
NEXT A
PRINT S
END
Решите пожалуйста.Желательно полный ответ.

Имена на все буквы алфавита

Читайте также

Помогите, пожалуйста, решить самостоятельную:1.Составьте блок-схему и программу вычисления значения функции

(картинка дана ниже)

2.Составьте программу, определяющую, является ли данное число делителем числа 3.

3.Составьте программу, заменяющую меньшее из двух данных чисел суммой, а большее - произведением этих чисел.

Заранее спасибо.

1)Определить, является ли числоа делителем числа b. Даны вещественные числа х и у, не равные друг другу. Меньшее из

этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.

2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.

1)Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2)Задан массив из 11 целых чисел. Посчитать количество нечётных

элементов массива.

3)задан массив из 9 целых чисел.Вывести на экран чётные элементы



Вы находитесь на странице вопроса "Меньшее из трех заданных чисел ABC заменить удвоенным произведением этих чисел. Через паскаль пожалуйста.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.