Var
k: array[1..100] of integer;
a,N,i,c:integer;
begin
c:=0;
i:=1;
a:=999;
write('Введите N: ');
readln(N);
writeln('Введите a: ');
while a<>0 do beginr
eadln(a);
if (a>=100) and (a<=999) then begin
if ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begin
k[i]:=a;
i:=i+1;
c:=c+1;
end;
end;
end;
if c>0 then begin
writeln('Числа, сумма цифр которых равна ',N,':');
for i:= 1 to c do
writeln(k[i]);
end;
end.
Последние 2 сразу отбрасываем, т.к. в третьем изменено расширение файла, а последнее не подходит из-за "*" в первом символе.
Осталось 1-е и 2-е.
Теоретически, подходят 2 имени, но!
В описании "?" не сказано, что он может означать пустую последовательность символов. Точнее, не сказано, что он может означать пустой символ.
Поэтому, подходит второе имя.
Оно вполне удовлетворяет всем требованиям.
+ задание сформулировано "какое". Следовательно, одно. И второе подходит лучше, чем любое.
Использовать Робот
алг
нач
закрасить
закрас
закрас
кон
алг закрас
нач
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
кон
143-2=141
141/2=70.5=70
270
270+2=272
2722
2722.5
2722.52
N=2^8
i=8 бит
<span>I=100*100*8=8000 бит=1000 байт)</span>