Ответ:
1.
<em>var s: string;
</em>
<em>
</em>
<em>begin
</em>
<em>write('Введите слово: ');
</em>
<em>readln(s);
</em>
<em>while (s<>'хватит') do
</em>
<em> begin
</em>
<em> writeln(s+'!');
</em>
<em> write('Введите слово: ');
</em>
<em> readln(s);
</em>
<em> end;
</em>
<em> writeln('До следующих встреч');
</em>
<em>end.
</em>
<em />
2.
<em>var i,n,max,min: integer;
</em>
<em>
</em>
<em>begin
</em>
<em>randomize();
</em>
<em>n:=random(201)-100;
</em>
<em>max:=n;
</em>
<em>min:=n;
</em>
<em>write(n,' ');
</em>
<em>For i:= 2 to 20 do
</em>
<em> begin
</em>
<em> n:=random(201)-100;
</em>
<em> write(n,' ');
</em>
<em> if (n>max) then max:=n;
</em>
<em> if (n<min) then min:=n;
</em>
<em> end;
</em>
<em>writeln('Наибольшее число: ',max);
</em>
<em>writeln('Наименьшее число: ',min);
</em>
<em>end.
</em>
4E516
0100/1110/0101/0001/0110
001/001/110/010/100/010/110
1162426
Тетрада и триада
Ответ:
алг
нач
цел а,б
б:=0
ввод а
нц пока а > 0
если mod (а,10) = div (mod (а,100),10) то
б:=б+1
вывод "Да"
выход
всё
а:=div (а,10)
кц
если б=0 то вывод "Нет" все
кон
<span>Когда человек слышит слова «модель» и «моделирование», перед его мысленным взором обычно пробегают картинки из его детства: уменьшенные копии автомобилей и самолетов, глобус, манекен, макеты зданий... Эти и многие другие вещи часто отражают какие-то общие свойства или функции настоящих предметов или объектов, только в более упрощенном виде. Используя такие модели, можно проще объяснить особенности оригинала. Информационная модель, примеры которой наглядно и понятно объясняют многие сложные для понимания процессы, также подчиняется основным требованиям моделирования. Цели Вышесказанное может привести нас к такому выводу: модели, являясь подобием реальных предметов или процессов, не должны отображать все свойства оригиналов, а только те характеристики, которые в определенной ситуации более востребованы для их применения. Нет необходимости отображать все многообразие свойств объекта — это может привести к усложнению модели и неудобству ее использования. Поэтому очень важно понимать, с какой целью была создана модель, какие ее параметры должны быть отражены в данном конкретном случае. При моделировании необходимо строго придерживаться такой логической цепочки: «объект — цель — модель»</span>
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.