Question

Составьте программу в паскале, которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения. Дам 25 баллов! Помогите пожалуйста

Answer 1

program plan;

var

a,b,c : real;

 begin

readln(a,b,c);

if a >0 then

 a := a *a;

if b >0 then

 b := b *b;

if c >0 then

 c := c *c;

 end.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет указанное действие:

pascalCopy code
program SquarePositiveNumbers;

var
  num1, num2, num3: real;

begin
  writeln('Введите первое число:');
  readln(num1);

  writeln('Введите второе число:');
  readln(num2);

  writeln('Введите третье число:');
  readln(num3);

  if num1 > 0 then
    num1 := sqr(num1);

  if num2 > 0 then
    num2 := sqr(num2);

  if num3 > 0 then
    num3 := sqr(num3);

  writeln('Результат:');
  writeln('Первое число:', num1);
  writeln('Второе число:', num2);
  writeln('Третье число:', num3);

  readln;
end.

Программа запрашивает три числа с клавиатуры, затем проверяет каждое число на положительность. Если число положительное, то оно возводится в квадрат с помощью функции sqr(), иначе число остается без изменений. Результат выводится на экран.