Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.
Результатом исполнения данной программы не может быть число 100, так как эта программа содержит ошибку.
Массив здесь описан
var a: array [1..8] of integer;
При выполнении цикла
for i:=1 to 8 do <span>a [i] := a [i-1] + 3;
на первом шаге должна быть выполнена команда a[1]:=a[0]+3
Элемента a[0] в массиве нет. Даже если бы он был, то введенное значение a[1] было бы заменено новым значением </span><span>a[0]+3</span>
1849-1854г инженером Ш.бурселем
1)Информационная сфера-это сфера деятельности субъектов, связанная с созданием, преобразованием и потреблением информации.
Материальное производство- производство, направленное на создание мат.благ.
К примеру: в моем классе 25 человек,у каждого ученика по 2 родителя(мама и папа).
У 17 из 25 учеников родители трудятся на создание материальных благ, из чего мы можем сделать вывод о том, что мы очень далеки от стадии информационного общества.
2)Информатизация- политика и процессы, направленные на построение развитие телекоммуникационной инфраструктуры, объединяющей территориально распределенные информационные ресурсы.
Из этого определения можно узнать и цели информатизации.
Успехов в учебе!)
Мин.: 8, макс.: 72 как то так