Question

НАПИСАТЬ НА ПАСКАЛЕ 1. Пользователь вводит два числа с клавиатуры. Вывести на экран yes, если они отличаются друг от друга на 135, иначе вывести на экран No; 2. Даны два целых числа А и В. Если произведение чисел А и В кратно 3 или кратно 2,то найти сумму А и В иначе найти разность А и В 3. Дано три числа. Найти количество положительных чисел среди них; 4. Даны два угла треугольника. Определите, может ли существовать треугольник с такими углами, и если может, будет ли он прямоугольным.

Answer 1

Задание 1:

var

a,b: real;

begin

write('A= ');

read(a);

write('B= ');

read(b);

if abs(a-b)=135 then

 write('yes')

else

 write('No')

end.

Задание 2:

var

a,b: integer;

begin

write('A= ');

read(a);

write('B= ');

read(b);

if (a*b mod 2 = 0) or (a*b mod 3 = 0) then

 write('A+B= ',a+b)

else

 write('A-B= ',a-b)

end.

Задание 3:

var

a,b,c: real;

k: integer;

begin

write('A= ');

read(a);

write('B= ');

read(b);

write('C= ');

read(c);

if a>0 then k:=k+1;

if b>0 then k:=k+1;

if c>0 then k:=k+1;

write('(>0): ',k)

end.

Задание 4:

var

a,b: real;

begin

write('угол A= ');

read(a);

write('угол B= ');

read(b);

if (a>0) and (b>0) and (a+b<180) then

 begin

 writeln('треугольник с такими углами может существовать');

 if (a=90) or (b=90) or (a+b=90) then

   write('это прямоугольный треугольник')

 else

   writeln('это не прямоугольный треугольник');

 end

else

 writeln('треугольник с такими углами не может существовать')

end.

Answer 2

Вот решения задач на языке Паскаль:

1. Пользователь вводит два числа с клавиатуры. Вывести на экран "yes", если они отличаются друг от друга на 135, иначе вывести на экран "no".

pascalCopy code
program Task1;
var
  num1, num2: integer;
begin
  writeln('Введите два числа:');
  readln(num1, num2);

  if abs(num1 - num2) = 135 then
    writeln('yes')
  else
    writeln('no');
end.

2. Даны два целых числа А и В. Если произведение чисел А и В кратно 3 или кратно 2, то найти сумму А и В, иначе найти разность А и В.

pascalCopy code
program Task2;
var
  num1, num2, result: integer;
begin
  writeln('Введите два числа:');
  readln(num1, num2);

  if (num1 * num2) mod 3 = 0 then
    result := num1 + num2
  else if (num1 * num2) mod 2 = 0 then
    result := num1 + num2
  else
    result := num1 - num2;

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

3. Дано три числа. Найти количество положительных чисел среди них.

pascalCopy code
program Task3;
var
  num1, num2, num3, count: integer;
begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  count := 0;
  if num1 > 0 then
    count := count + 1;
  if num2 > 0 then
    count := count + 1;
  if num3 > 0 then
    count := count + 1;

  writeln('Количество положительных чисел: ', count);
end.

4. Даны два угла треугольника. Определите, может ли существовать треугольник с такими углами, и если может, будет ли он прямоугольным.

pascalCopy code
program Task4;
var
  angle1, angle2, angle3: integer;
begin
  writeln('Введите два угла треугольника:');
  readln(angle1, angle2);

  angle3 := 180 - angle1 - angle2;

  if (angle1 + angle2 + angle3 = 180) and ((angle1 = 90) or (angle2 = 90) or (angle3 = 90)) then
    writeln('Треугольник существует и является прямоугольным')
  else if angle1 + angle2 + angle3 = 180 then
    writeln('Треугольник существует, но не является прямоугольным')
  else
    writeln('Треугольник не существует');
end.

Надеюсь, это поможет вам решить задачи на языке Паскаль!