Задать вопрос
5 мая, 18:58

Даны три действительных числа. Возвести в квадрат те из них > 5

+1
Ответы (2)
  1. 5 мая, 19:29
    0
    var

    a, b, c:Extended;

    begin

    Readln (a, b, c) ;

    if a>5 then a:=a*a;

    if b>5 then b:=b*b;

    if c>5 then c:=c*c;

    Writeln (a,' ', b,' ', c) ;

    end.
  2. 5 мая, 21:18
    0
    program abcd;

    uses crt;

    var a, b, c:real;

    begin

    writeln (Введите 3 действительных числа через пробел"') ; readln (a, b, c) ;

    if a>5 then begin

    a:=a*a;

    writeln (a)

    end

    else writeln ('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"') ;

    if b>5 then begin

    b:=b*b;

    writeln (b) ;

    end

    else writeln ('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"') ;

    if c>5 then begin

    c:=c*c;

    writeln (c) ;

    end

    else writeln ('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны три действительных числа. Возвести в квадрат те из них > 5 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы