Ну вот, вроде ,я сделал.Как ты сказал - без mod div и /
program znanija; const min=1; max=27;var s, d, e, c, n: Integer;begin repeat write('Введите n (', min, '<=n<=', max, ') '); Readln(n); until n in [min..max]; c:=0; for s:=1 to 9 do for d:=0 to 9 do for e:=0 to 9 do if s+d+e=n then Inc(c); writeln('Количество чисел с суммой цифр = ', n, ' = ', c);end.
Program n1;
var a: array[1..12] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(15);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
Код полностью
//PascalABC.NET 3.1 сборка 1239
var
a, b, c: integer;
begin
a := 9;
b := 3;
c := 1;
while not (a = b) do
begin
c := c + (a - b);
a := a - 1;
b := b + 1;
{Println(a, b, c);}
end;
writeln('c=',c);
{2}
a := 10;
b := 2;
while not (a <5) do
begin
b := b + 10-a;
a := a - 1;
{Println(a, b, c);}
end;
writeln('b=',b);
end.
Вывод программы
c=13
b=17
<span>В чем состоит особенность поля "счетчик"?
</span><span>5. имеет свойство автоматического наращивания.
</span>В чем состоит особенность поля "мемо"?
<span>3. данные хранятся не в поле, а в другом месте, а в поле хранится только указатель на то, где расположен текст;
</span>
Какое поле можно считать уникальным?
<span>1. поле, значения в котором не могут повторятся;
</span>
<span>Ключами поиска в системах управления базами данных (СУБД) называются:
</span><span>3. поля, по значению которых осуществляется поиск;</span>