Даны два числа. Меньшее из них заменить квадратом, а большее умножьте на 10
10-11 класс
|
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a < b then
begin
a := a * a;
b := b * 10;
end
else
begin
b := b * b;
a := a * 10;
end;
writeln('a = ', a);
writeln('b = ', b);
end.
Другие вопросы из категории
Напишите строку объявления одной сороковой и одной вещественной переменной
Читайте также
- их удвоенным произведением.
Найти разновидность z между большим и меньшим из них
Найти разновидность z между большим и меньшим из них
4. Известны периметр первого треугольника Р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а3, в3, с3. Найти и вывести на экран периметр меньшего треугольника.
Алгоритмы ветвления
каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.