0

Рейтинг

Написать программу которая из двух введенных с клавиатуры чисел определяет большее и возводит его

Написать программу которая из двух введенных с клавиатуры чисел определяет большее и возводит его в квадрат,а меньшее делит на 8

Категория: Информатика 3 года назад

На вопрос 3 года назад

София Ляшко

0

Рейтинг

Var
a, b: real;
begin
readln(a, b);
if a = b then writeln('Числа равны')
else
if a > b then begin
a := sqr(a);b := b / 8;
end
else begin
b := sqr(b);a := a / 8;
end;
writeln('a = ', a, ' b=', b)
end.

Ответ получен 3 года назад

Мирослав Пророков

0

Написать программу которая из двух введенных с клавиатуры чисел определяет большее и возводит его

Ответы (1)

0

Войти на сайт