profile
Опубликовано 5 лет назад по предмету Информатика от lexa600

Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b
≥ с, и заменить их абсолютными
значениями, если это не так.

  1. Ответ
    Ответ дан СтепаУМ
    Var a,b,c:real;
    Begin
    write('Введите a,b,c: ');readln(a,b,c);
    if (a>=b)and(b>=c) then
    Begin
    a:=a*2;
    b:=b*2;
    c:=c*2;
    End
    else
    Begin
    a:=abs(a);
    b:=abs(b);
    c:=abs(c);
    End;
    writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
    readln;
    End.
Самые новые вопросы