Question

Составить программу на паскаль .даны 2 числа.если сумма этих чисел больше 10,то первое число возвести в квадрат,а второе увеличить на 10.В противном случае оставить числа без изменения.вывести эти числа. помогите пожалуйста.даю 25 баллов.очень нужно

Answer 1

Ответ:

var a,b: integer;

begin

write('Введите два числа: ');

readln(a,b);

if (a+b>10) then

 begin

 a:=a*a;

 b:=b+10;

 end;

writeln('a = ',a);

writeln('b = ',b);

end.

Answer 2

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

pascalCopy code
program SumCheck;

var
  num1, num2: integer;

begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  if (num1 + num2) > 10 then
  begin
    num1 := num1 * num1;
    num2 := num2 + 10;
  end;
  
  writeln('Результат:');
  writeln('Первое число:', num1);
  writeln('Второе число:', num2);
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните его. Программа попросит вас ввести два числа, а затем выведет измененные или оставшиеся без изменения числа в зависимости от условия.