1) Ввести с клавиатуры целое число. Определить четное оно, или нечетное. 2) Решить следующие задачи: Является ли треугольник с длинами сторон a, b, c : * прямоугольным; * равнобедренным; * равносторонним. Стороны вводятся с клавиатуры.
Answers & Comments
qwert07
1) var x : integer; begin readln(x); if x mod 2 = 0 then writeln('Число четное'); else writeln('Число нечетное'); end.
проверим прямоугольность с помощью теоремы Пифагора
var a,b,c : integer; begin readln(a,b,c); if (a*a+b*b = c*c) or (b*b+c*c = a*a) or (c*c+a*a = b*b) then writeln('Треугольник прямоугольный); elseif(b=a) or (b=c) or (a=c) then writeln('Треугольник равнобедренный'); elseif(a=b) and (b=c) and (a=c) then writeln('Треугольник равносторонний'); else writeln('Треугольник не прямоугольный, не равнобедренный и не равносторонний'); end.
Answers & Comments
var
x : integer;
begin
readln(x);
if x mod 2 = 0 then
writeln('Число четное');
else
writeln('Число нечетное');
end.
проверим прямоугольность с помощью теоремы Пифагора
var
a,b,c : integer;
begin
readln(a,b,c);
if (a*a+b*b = c*c) or (b*b+c*c = a*a) or (c*c+a*a = b*b) then writeln('Треугольник прямоугольный);
elseif(b=a) or (b=c) or (a=c) then writeln('Треугольник равнобедренный');
elseif(a=b) and (b=c) and (a=c) then writeln('Треугольник равносторонний');
else writeln('Треугольник не прямоугольный, не равнобедренный и не равносторонний');
end.