Uses GraphABC;
var s:string;
begin
writeln('Введите название фигуры (круг или треугольник):');
readln(s);
setwindowsize (640,480);
setwindowtitle (s);
setpencolor (clBlue);
setpenwidth (4);
if s='круг' then
circle(300,200,120)
else begin
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
end.
1. Переписать таблицу в тетрадь.
2. Ответить на вопросы.
3. Написать эти ответы в колонки(в тетради).
Вот и всё!
При использовании алфавита из 128 символов для записи одного символа необходимо log(2)128 = 7 бит
Количество символов в сообщении = 3*x*50
Объем сообщения = 3*x*50*7 бит
7875 байт = 7875*8 бит
x = 7875*8/(3*50*7) = 60
Ответ: каждая страница текста содержит 60 строк
Надоело при копировании из блокнота вручную ставить пробелы. Бред.
var a,b,i,z,x:integer;
q:array [1..20] of integer;
begin
write('Верхняя граница='); readln(a);
write('Нижняя граница='); readln(b); x:=a-b; randomize;
for i:=1 to 20 do
begin
q[i]:=random(x)+b;
write(q[i],' ');
if (q[i]mod 2=0) then z:=z+q[i];
end;
writeln;
write('Сумма четных чисел=',z);
end.