Question

Помогите, пожалуйста! Создать программу Паскаль возведение в квадрат чисел оканчивающихся на 5пожалуйста!

Answer 1

Держи:

program abc;

var

a:int64;

Begin

readLn(a);

if (a mod 5 = 0) and (a mod 10 <> 0) then

Begin

a:= a*a;

writeLn(a);

End

else writeLn('Это число не оканчивается на 5');

End.

Answer 2

Конечно, я могу помочь вам создать программу на языке Паскаль для возведения в квадрат чисел, оканчивающихся на 5. Вот пример программы:

program SquareNumbersEndingIn5;

var
  number, square: integer;

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

if number mod 10 = 5 then
  begin
    square := number * number;
    writeln('Квадрат числа ', number, ' равен ', square);
  end
  else
    writeln('Введенное число не оканчивается на 5.');

readln;
end.

В этой программе мы сначала запрашиваем у пользователя число. Затем мы проверяем, оканчивается ли это число на 5, используя оператор `mod`. Если число оканчивается на 5, мы вычисляем его квадрат и выводим результат. Если число не оканчивается на 5, мы выводим сообщение об ошибке.

Надеюсь, это поможет вам создать программу на Паскале для возведения в квадрат чисел, оканчивающихся на 5. Если у вас возникнут еще вопросы, не стесняйтесь задавать!