Question

Написать программу Паскаль.Даны два положительных числа.Если квадрат первого числа меньше 28,то второе число увеличить на 12.Вывести результат.

Answer 1

Ответ:

program n1;

var  

a, b :integer;

begin

read(a, b);

if not(sqr(a)>28) then

writeln(b+12)

else writeln(sqr(a));

end.

Объяснение:

Answer 2

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

pascalCopy code
program IncreaseIfSquareLessThan28;

var
  number1, number2: integer;

begin
  writeln('Введите два положительных числа:');
  write('Первое число: ');
  readln(number1);
  write('Второе число: ');
  readln(number2);

  if number1 * number1 < 28 then
    number2 := number2 + 12;

  writeln('Результат: ', number2);
end.

Пользователь будет приглашен ввести два положительных числа. Затем программа проверит, является ли квадрат первого числа меньше 28, и если это так, то увеличит второе число на 12 и выведет результат.