100байт = 800бит
800 / 80 = 10 бит на символ
2^10 = 1024 символов всего
Ответ:
Var
a,b: Integer;
BEGIN
Write('A= ');
Readln(a);
Write('B= ');
Readln(b);
If a>b Then Writeln(a);
If a<b Then Writeln(b);
If a=b Then Writeln('Числа равны');
END.
Объяснение:
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Var a,b,c:Integer;
Begin
Write('Введите длину 1 катета: '); Readln(a);
Write('Введите длину 2 катета: '); Readln(b);
Write('Введите длину гипотенузы: '); Readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if (sqr(c)=sqr(a)+sqr(b)) then
Writeln('Треугольник прямоугольный')
else
Writeln('Треугольник другого типа');
end
else
Writeln('Треугольник не существует');
END.
Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=3*i;
Write(a[i],' ')
end;
Writeln
end.