Даны два числа. Замените меньшее из двух чисел их суммой, а большее произведением этих чисел.
5-9 класс
|
простая задача же.
var
c1,c2,b,m:integer;
begin
write('Введите число 1 ');
readln(c1);
write('Введите число 2 ');
readln(c2);
if c1>c2 then begin b:=c1, m:=c2; c2:=m+b; c1:=m*b; end
else
b:=c2, m:=c1; c1:=m+b; c2:=m*b;
end:
write('Первое число=',c1,'Второе число=',c2);
end.
Другие вопросы из категории
делали подобным образом на уроке такую задачу, но про квадраты не понимаю , как составлять, помогите пожалуйста
нечётные числа из диапахона от 1 до N. Вычислить их сумму.
длительностью звучания 1 секунда при высоком качестве звука (16 битов, 48 кГц).
памяти за 6 месяцев. Вопрос:Через какое время на 1 ГБ памяти не останется области , не поврежденной вирусами? (если работали все 4 вируса одновременно)
а) четверь месяца
б) пол месяца
в) 1 месяц
г) 2 месяца
Читайте также
Помогите пожалуйста)
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
1.Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.
2.Найдите решение уравнения ах+ в=0, если оно существует,если а=0
3.написать программу удвоения меньшего из двух чисел
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений