Ответ:
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>
Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(8);
if a[i] mod 2 = 0 then
a[i]:=a[i]+1
else
a[i]:=a[i]*2;
end;
<span>end.</span>
Ответ получается 2170 на компиляторе pascal.ABC
ЗvT=(З+Т)-3&T=18000+12000-5000=25000
Ответ: 25000
#include <iostream>
using namespace std;
int main()
{
int n, ans = 0;
cin >> n;
vector <int> f(n);
for (int i = 0; i < n; i++)
{
cin >> f[i];
if (f[i] % 2 == 0) ans++;
}
cout << ans;
return 0;
}
язык - c++