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