<h2>№2</h2>
Промежуточные значения n и s даны в приложении.
Ответ: 30.
<h2>№3</h2>
var n: integer;
begin
read(n);
if n mod 2=0 then n:=n div 4
else n:=n*5;
writeln(n);
end.
<h2>№4</h2>
var
x, y: integer;
begin
read(x);
if x > 5 then y := x * x - 1
else if x < -2 then y := 2 * x;
writeln(y);
end.
<h2>№5</h2>
var
i: integer;
pr: biginteger;
begin
pr := 1;
for i := 10 to 25 do
if i mod 2 = 1 then pr := pr * i;
writeln(pr);
end.
Жил был Билл Гейтс, и основал он компанию Microsoft, в которой родилась первая операционная графическая система MS-DOS, жалкие людишки наконец смогли по нормальному пользоваться ПК, операционная система стала сама помогать людям, спрашивать их о том, какие действия нужно совершить. После вышел Windows 95, NT, 2000, XP,7,8. И людям больше нечего было делать, только в игрушки играть, но вы! Да, да вы! Моя учительница информатики не даете мне насладиться этим чудом в полной мере. Будьте вы прокляты со своим тупым заданием. Сочинить сказку про WordPad, это просто идиотизм.
Начнем. Создали в Microsoft текстовый редактор WordPad, и людишки смогли писать на экранчиках мониторчиков. И все счастливы. Конец.
Информацию кодируют для ее более удобного переноса приемнику информации.
Program sadadasf;
var i,k,l,m,s: integer;
A: Array[1..150] of integer;
begin
Writeln('Сколько чисел будет в массиве?');
readln(k);
l:=9999;
m:=-1000;
For i:=1 to k do
begin
Writeln('Введите элемент массива №',i);
Readln(A[i]);
If A[i]>m then m:=A[i];
If A[i]<l then l:=A[i];
end;
s:=m+l;
Writeln('Сумма минимального и максимального элемента массива: ',s);
<span>end.</span>
...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.