2.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом

3.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом.

4.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом.

//PascalABC.NET 3.2 сборка 1318

//1

uses
  GraphABC;
  Var
  a,h,x,y:integer;
  c:char;
begin
writeln('Read or random? n/r');
repeat
readln(c);
until (c='n') or (c='r');
if c='r' then
  begin
    a:=random(200);
    writeln('Длина ребра=',a,', Объём=',power(a,3));
  end
else
  begin
    readln(a);
    writeln('Объём=',power(a,3));
  end;
x:=windowwidth div 2;
y:=round(windowheight*1/3);
line(x,y,x,y+a);
line(x+a,y,x+a,y+a);
line(x,y+a,x+a,y+a);
line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2);
line(x,y,x+a,y);
line(x+a div 2,y+a div 2,x+a div 2,y-a div 2);
line(x,y,x+a div 2, y-a div 2);
line(x,y+a,x+a div 2, y+a div 2);
line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2);
line(x+a div 2+a, y-a div 2,x+a,y);
line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a);
line(x+a div 2+a, y-a div 2+a,x+a,y+a);
end.

Пример ввода:
n
16
Пример вывода:
Объём=4096

//2

Var
  X,P:integer;
beginwrite('X:');
readln(X);
write('P:');
readln(P);
if not(odd(X)) then writeln('Кратно 2');
if X mod 3=0 then writeln('Кратно 3');
if X mod P=0 then writeln('Кратно ',P);
end.

Пример ввода:
18
6
Пример вывода:
Кратно 2
Кратно 3
Кратно 6

12- Информацио́нный шум — это культурный феномен, возникший в XX веке, который описывает наличие в тексте элементов, усложняющих его понимание, искажающих смысл изложенного или вовсе полностью препятствующих адекватному пониманию его содержания

13-  Потеря данных (Data Loss) — повреждение или утрата информации в результате влияния различных факторов, случайных или намеренных действий. Потерять данные можно во время работы с ними, а также при хранении информации на компьютере, сервере или на массивах RAID.

14- та информация, которая необходима для решения данной задачи (например, задачи управления). Соответственно, иррелевантная информация ненужная, посторонняя. Разделение между этими понятиями относительно.

15- конечно можно большая часть информации там полностью проверенная, а учитывая что это один из самых популярных ресурсов в нем даже сомневаться особо не стоит.

16- Блогер - это человек, который ведет онлайн-дневник, "блог", регулярно публикует в нем новые записи. Блог в интернете может завести любой человек и писать на любую тему. ... Главный критерий успеха блога - количество подписчиков, то есть людей, которые регулярно его читают или смотрят.

Доверять этим людям не стоит, информацию нужно проверять самому так или иначе.

17- проверка фактов») — это процесс проверки фактических данных, встречающихся в тексте и не являющихся вымышленными, для определения их достоверности и правильности. ... Предварительная проверка фактов осуществляется до публикации и заключается в устранении опечаток, неточностей, спорных данных.

18- ты должен сделать это сам, ведь мне неоткуда знать кому в интернете ты доверяешь.

Объяснение: