begin writeln('Введите два катета a,b: '); readln(a,b); writeln('Введите гипотенузу c: '); readln(c); if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.') else writeln('Треугольник не прямоугольный.'); end.
// 2.
var A: array [1..100] of integer; x,i,n: integer;
begin writeln('Введите кол-во чисел N: '); readln(n); writeln('Введите числа: '); for i:= 1 to n do readln(A[i]); writeln('Вы ввели: '); for i:= 1 to n do write(A[i]:4); writeln; for i:= 1 to n do if A[i] > -1 then x:=x+1; writeln('Среди них положительных: ',x); end.
412 / 2 = 206 остаток: 0
206 / 2 = 103 остаток: 0
103 / 2 = 51 остаток: 1
51 / 2 = 25 остаток: 1
25 / 2 = 12 остаток: 1
12 / 2 = 6 остаток: 0
6 / 2 = 3 остаток: 0
3 / 2 = 1 остаток: 1
1 / 2 = 0 остаток: 1
Выписываем остатки в обратном порядке - это и будет результат: 1100111001