1 задача.
Дом1-Алексей,столяр.
Дом2-Виктор,хирург.
Дом3-Михаил,окулист.
Дом4-Егор,токарь.
А) В компьютере постоянно идёт сбор информации вне зависимости от того что мы делаем ( печатаем , играется или сидим в интернете ). Вот почему после каждого посещения интернета советуют чистить компьютер при помощи программ чистителей к примеру : CCleaner .
б) После сбора информации идёт сразу же её обработка чтобы узнать её свойства . При обработке может попасть вирус , который будет исполнять определённую роль заложенную в её программе . Предупреждение и обезвреживание компьютерных вирусов могут помочь программы антивирусы к примеру : DrWeb и Avast .
в) Упрощение информации ето скорее всего её классификация , расортировка и сжатие ( архивация ).
г) Создание информации ето самый по своей сути прост ведь информацию можно создать банально открыв программу блокнот на компьтере и напечатать символ точку ( . ) вот и все маленькая но всеже информация создана .
д) Возьмём ету-же точку в блокноте информации есть но как только вы выйдете из етой программы без сохранения информация пропадает но стоит только нажать кнопку сохранить и ета информация сохранится где-то в корневой папке программы "Блокнот" .
Большем не напечатаю вот то что смог и не знаю подойдёт ли ! Сори если че не так Удачи &-)
Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
<span>end.</span>
Диаграмма — графическое представление данных линейными отрезками или геометрическими фигурами, позволяющее быстро оценить соотношение нескольких величин. Представляет собой геометрическое символьное изображение информации с применением различных приёмов техники визуализации.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024