Два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 32 символа, второй - мощностью 64 символа. во сколько раз отличаются информационные объемы этих текстов?
2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1:= sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2:= sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1<>n2 then if n1<n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('Точки находятся на равном расстоянии от начала координат.') end.
3.) var n, x, a, b, c, s: integer; beginwrite('Введите число: '); readln(n); if (n>99) and (n<1000) then begin write('Введите x: '); readln(x); a:= n div 100; b:= (n - a*100) div 10; c:= (n - a*100 - b*10); if a=x then s:=s+1; if b=x then s:=s+1; if c=x then s:=s+1; if s>0 then writeln('В числе есть ', x) else writeln('В числе нет ', x); end else writeln('Число не трехзначное'); end.
//PascalABC.NET //Дан целочисленный массив из 40 элементов. Элементы массива могут //принимать значения от -10000 до 10000. Написать алгоритм, который //находит и выводит среднее арифметическое всех отрицательных элементов //массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один //такой элемент в массиве есть. Исходные данные объявлены так, как //показано ниже. Запрещается использовать переменные, не описанные //ниже, но разрешается не использовать часть из них.
const N = 40; var //a : array[1..N] of integer; i, s, r, x : integer; sr: real; begin //Для любителей заполнять вручную: //for i := 1 to 40 do readln(a[i]);
//Заполним массив 40-ка случайными значениями var a := ArrRandomInteger(N+1, -10000, 10000); //Гарантировано разместим число, оканчивающееся на 7 a[Random(0,40)] := -10 * Random(0,999) - 7; //Уберем лишний элемент, созданный автоматически a[0] := 0; //Напечатаем массив a.println; writeln('----------------'); //Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7 //число, учтём его foreach i in a do if (i < 0) and (i mod 10 = -7) then begin r += i; s += 1; write(i,' ') end; //Выведем среднее арифметическое writeln('Ср.ар: ',r/s) end.
