Var i,k:integer; begin write('k = '); readln(k); writeln('Числа, сумма цифр которых = ',k); for i:=10 to 99 do if i div 10+i mod 10=k then writeln(i); end.
Пример: k = 15 Числа, сумма цифр которых = 15 69 78 87 96
Тоже делаю но знаю ответ только на 1,3,4 и 7 так себе 1)В 1666 г. в московской пищепитательнице при церкви Ковра (Павла) и Иоанна поселился воинственный барабашка – демон. Царь Алексей Михайлович велел священными молитвами изгнать злокозненного духа. Митрополит Илларион 3) мыс "Бурь" или же по другому мыс " Доброй надежды" частые грозы, дожди и ураганы, а так же затуманенность приводили к гибели кораблей( уточняю, что таких как этот мыс есть еще несколько. Но не возможно понять какой именно, мне кажется этот более подходящий) Явление миража происходили из-за тумана. 4) Меркурий. за 176 дней делает оборот вокруг солнца. То есть одни сутки этой планеты длятся два ее года. 7) известно что длинношерстные тойтерьеры разводились в Москве, точнее их там вывели.
var s : string[50]; i, j, k : word; f : boolean; function isSpace(ch : char) : boolean; begin isSpace := false; if ch = ' ' then isSpace := true; end; begin f := false; repeat j := 0; writeln('введите строку, состоящую из 2 слов'); readln(s); for i := 1 to length(s) do if isSpace(s[i]) then begin inc(j); k := i; end; if j =1 then f := true; until f; write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); end. недавно такую писала :)
begin
write('k = ');
readln(k);
writeln('Числа, сумма цифр которых = ',k);
for i:=10 to 99 do
if i div 10+i mod 10=k then writeln(i);
end.
Пример:
k = 15
Числа, сумма цифр которых = 15
69
78
87
96