Ну вот, вроде ,я сделал.Как ты сказал - без 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.
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
Подобранные пары похожих понятий:
- Веселье - грусть (эмоции)
- Весна - осень (времена года)
- Монитор - клавиатура (компьютерные устройства)
- Стол - диван (предметы мебели)
- Береза - осина (деревья)
- Автомобиль - самолет (средства передвижения)
- Арбуз - гуляш (съедобное)