Question

Даны 3 числа.Возвести в квадрат неотрицательные,а отрицательные заменить их модулем.8 класс.Паскаль.Заранее спасибо​

Answer 1

Var a,b,c : integer;
Begin
Read(a,b,c);
If a>= 0 then a:= a*a else a:= abs(a);
If b>= 0 then b:= b*b else b:= abs(b);
If c>= 0 then c:= c*c else c:= abs(c);
Write(a,b,c);
End.

Answer 2

Var

a,b,c : integer;

Begin

Read(a,b,c);

If a>= 0 then a:= sqr(a)

else a:= abs(a);

If b>= 0 then b:= sqr(b)

else b:= abs(b);

If c>= 0 then c:= sqr(c)

else c:= abs(c);

Write(a,b,c);

End.

Answer 3

Я могу помочь вам с вашим вопросом о программировании на Паскале.

Даны три числа. Возвести в квадрат неотрицательные, а отрицательные заменить их модулем. Это задание можно решить с помощью следующего алгоритма:

- Ввести три числа с клавиатуры и сохранить их в переменных a, b и c. - Для каждой переменной проверить, является ли она неотрицательной или отрицательной. - Если переменная неотрицательная, то возвести ее в квадрат и вывести на экран. - Если переменная отрицательная, то заменить ее на ее модуль (абсолютное значение) и вывести на экран.

На языке Паскаль это можно реализовать так:

program square_or_abs;
var
  a, b, c: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  if a >= 0 then
    a := a * a
  else
    a := abs(a);
  writeln('a = ', a);
  if b >= 0 then
    b := b * b
  else
    b := abs(b);
  writeln('b = ', b);
  if c >= 0 then
    c := c * c
  else
    c := abs(c);
  writeln('c = ', c);
end.

Эта программа считывает три числа с клавиатуры и выводит на экран их квадраты или модули в зависимости от знака. Например, если ввести числа -2, 3 и -4, то программа выведет:

a = 2
b = 9
c = 4

Надеюсь, это ответ поможет вам понять, как решить задание. Если у вас есть еще вопросы, я буду рад ответить на них.