<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function sn(n:integer):integer; // сумма цифр числа
begin
n:=Abs(n);
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
var m:=ArrRandom(n,a,b); m.Println;
var k:=ReadInteger('k=');
Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.
<u>Пример</u>
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2
Var
i,j:0..9;
n: integer;
begin
readln(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then writeln(i*10+j)
end.
6
15
24
33
42
51
60
Алгоритм:
1) Понять что не видишь носки и потерял их
2) Вспомнить где ты их видел в последний раз
3) Начать искать
4) Найти носки
<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>