Даны три действительных числа. Возвести в квадрат те из них > 5
10-11 класс
|
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.
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.
Другие вопросы из категории
заданного символа.
Найти все натуральные
решения уравнения:x^3+y^3=M . Где М>0 задает
пользователь. Использовать вложенные циклы.
Читайте также
из них те, которые принадлежат интервалу
(1, 3).
вычислить площадь этого треугольника. Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по выведенному номеру выполняет то или иное действие над числами.