ЮК
Юлия Колесникова
Информатика! Turbo Pascal
Составить программу на Turbo PacalВычислить: m=(система) max(a,b)-если x>0 и x^2+b^5+min(a,b) если x<=0
Составить программу на Turbo PacalВычислить: m=(система) max(a,b)-если x>0 и x^2+b^5+min(a,b) если x<=0
Не знаю, что изображено на второй картинке, но задача с первой картинки решается примерно так:
PROGRAM test;
VAR
x, m, a, b :Real;
BEGIN
Write('Введите a, b, х: ');
ReadLn(a, b, x);
IF (x > 0)
THEN BEGIN
IF (a > b) THEN m := a ELSE m := b
END
ELSE BEGIN
IF (a > b) THEN m := b ELSE m := a;
m := m + x*x + b*b*b*b*b;
END;
WriteLn('m = ', m);
ReadLn();
END.