Ну вот, вроде ,я сделал.Как ты сказал - без 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.
1) в кабинете информатики запрещено ходить по классу без розрешении учителя
2)в кабинете информатики запрещено отлекать рядом сидящих товарищ
3)в кабинете информатики запрещено заходить в класс с мокрой одеждой
4)в кабинете информатики запрещено садится за компьютер бещ разрешения учителя
Верхний: ctrl shift +
нижний: ctrl +
Var
i:integer;
begin
for i:=18 downto 1 do
write(i,' ');
end.