Var
a, b, c: real;
begin
writeln('Введите два катета A,B и гипотенузу С треугольника');
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
else begin
if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
end;
end.
Program Zadacha;
Const max = 255;
Var t: Text;
i: Integer;
s: String[max];
Begin
Assign(t, 'd:\input.txt');
Reset(t);i := 2;
While Not Eof(t) Do
Begin
If i > max Then
Break;
Read(t, s);
End;
Close(t);
Assign(t, 'd:\output.txt');
Rewrite(t);
Write(t, s[1]);
Close(t);
<span>End.</span>
Если пешками ходить запрещено, то можно ходить только конями. Коней два, каждый может сходить на одно из двух полей, следовательно имеются 4 варианта ходов. После того, как ход белых был сделан, неопределенность в знаниях черных уменьшилась в 4/1=4 раза. 4=2², поэтому полученное количество информации составляет 2 бита.
D-(-8;-4) ||| тоже самое было, надеюсь правильно :) удачи в изучение информатике....
Program www;
var x,s:integer;
begin
read (x);
S:=0;
while x<>0 do
begin
If (x mod 5=0) then S:=S+x;
read (x);
end;
write (S);
End.