Question

Pascal для начинающих. дано число с клавиатуры, если его квадрат больше чем утроенное, тогда вывести его на экран

Answer 1

Вот держи:

program abc;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a*a > 3*a) then writeln ('a = ', a)
else write ('Ne podhodit');
end.

Answer 2

Вы можете написать программу на языке Pascal, чтобы решить эту задачу. Вот пример такой программы:

pascalCopy code
program CompareSquares;

var
  number, square, triple: integer;

begin
  // Введите число с клавиатуры
  write('Введите число: ');
  readln(number);

  // Вычислите квадрат числа и утроенное число
  square := number * number;
  triple := number * 3;

  // Проверьте условие и выведите результат
  if square > triple then
    writeln('Квадрат числа больше утроенного числа.')
  else
    writeln('Квадрат числа не больше утроенного числа.');

  readln;
end.

Эта программа сначала запрашивает число с клавиатуры, затем вычисляет его квадрат и утроенное значение. После этого она сравнивает квадрат числа с утроенным значением и выводит соответствующее сообщение на экран.

Просто скопируйте этот код в вашу среду разработки Pascal и выполните программу. Она попросит вас ввести число, а затем сообщит, больше ли квадрат числа утроенного числа или нет.