Question

Помогите пожалуйста! 1.Дано три положительных числа.Проверить можно ли построить прямоугольный треугольник с заданными сторонами. 2.Проверить делится ли данное число на 13.

Answer 1

Задача №1 (написанная на паскале)

uses crt;
var
a, b, c: real;
begin
readln (a, b, c);
a:= a*a;
b:= b*b;
c:= c*c;
if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('Mozhno') else writeln('oshipka postroenie');
readkey;
end.

 

Задача №2.(написанная на паскале) 

uses crt;
var
a : integer;
begin
readln (a);
if (a mod 13 =0) then writeln ('da') else writeln ('net');
readkey;
end.