Дополните предыдущую программу так, чтобы её выполнение приводило к присваиванию переменной y значения большей из четырёх величин a, b, c, d.
program maximum;
var y, a, b, c: integer;
begin
writeln ('Нахождение наибольшей из трех величин');
write ('введите a, b, c: ');
readln (a, b, c);
y:=a;
{Здесь нужно ввести команды проверки условия}
writeln ('наибольшее число: ', y)
end.
var a,b,x,z,sra,srg:real;
begin
writeln('Введите 4 числа');
read(a,b,x,z);
sra:=(a+b+x+z)/4;
srg:=power(a*b*x*z, 1/4);
writeln('Среднее арифметическое этих чисел =',sra);
writeln('Среднее геометрическое этих числе =',srg);
end.
Задача №2
var a,b,sra,srg:real;
begin
writeln('Введите 2 числа');
read(a,b);
sra:=(a+b)/2;
srg:=power(a*b, 1/2);
writeln('Среднее арифметическое этих чисел =',sra);
writeln('Среднее геометрическое этих числе =',srg);
writeln('Модули этих чисел a=',abs(a), ' b=',abs(b))
end.
Задача №3
var a,b,c:real;
begin
writeln('Введите длину катетов и гипотенузы соотвественно');
read(a,b,c);
if a=0 then a:=sqrt(sqr(c)-sqr(b));
if b=0 then b:=sqrt(sqr(c)-sqr(a));
if c=0 then c:=sqrt(sqr(a)+sqr(b));
writeln('Площадь треугольника =',a*b*0.5);
writeln('Периметр треугольника =',a+b+c);
end.
Рассмотрим число 426. Так как мы составляем палиндром, при этом количество чисел в палиндроме чётное, то в нем должна быть обратная запись этого числа - 624. Её мы можем получить из чисел 62 и 4.
Имеем: зеркальные числа 426 и 624
Остались числа 84, 2, 8, 24. Из них мы можем составить два зеркальных числа - 842 и 248. Осталось составить палиндром. Так как надо создать максимально возможный палиндром, то число 842 должно быть вначале, а после - число 624.
ответ:
842624426248