Var A: arrey[1..19,1..2] of integer; Var x, i: integer; Begin For i:=1 to 19 do begin A[i,1]:=i; A[i,2]:=i*i; Writeln (A[i,1]:4, A[i,2]:4) End End. Или если без массива, то так: Const n=12; Var x,y: integer; Begin For x:=1 to n do begin y:=x*x; Writeln (x:4,y:4) End End.
Var a,b,c: real; s: string; begin write('длины сторон через пробел: '); readln(a,b,c); if (a+b>c) and (a+c>b) and (c+b>a) then begin if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then s:='треугольник прямоугольный' else if (sqr(a)+sqr(b)>sqr(c)) and (sqr(b)+sqr(c)>sqr(a)) and (sqr(a)+sqr(c)>sqr(b)) then s:='треугольник остроугольный' else s:='треугольник тупоугольный'; writeln(s); end else writeln('треугольник составить нельзя'); end.
Чтобы ответить на вопрос «сколько информации?», надо определить единицу информации каждого символа. Для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit). Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i. Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.
