1)агерес любит цифры, а также с цифрами. но не все так просто. дело в том, что некоторая цифра a недавно - id902839720210316 от danchik56 16.03.2021 03:08

Question

Информатика: 1)агерес любит цифры, а также с цифрами. но не все так просто. дело в том, что некоторая цифра a недавно начала казаться ему странной, поэтому агерес решил всяко избегать использования этой цифры. сегодня агерес делал дз по и в качестве ответа на одно из он получил большое число n, теперь он хочет записать в тетради ответ на эту , но так как ему кажется странной цифра a, он решил записать минимальное число, которое не содержит цифр a, и при этом оно не меньше n. так как агерес еще маленький, а числа

danchik56 · Accepted Answer

Program proga;
Var
p: text;
i, n : byte;
s,min,m: string;
Begin
write('Введите имя файла '); {Например: C:.txt}
read(m);
Assign(p,m);
reset(p);
read(p,s);
min:=s;
n:=100;
for i:=1 to n do
begin
readln(p,s);
while not eof(p) do
{нахождение минимальной строки}
begin
readln(p,s);
if length(s) <= length(min) then
min:=s;
end;
end;
close(p);
write('самая короткая строка: ',min);
End.

MOGZ ответил