<span>1) самостоятельная работа.doc
имя - </span><span>самостоятельная работа
расширение - </span><span>.doc
это текстовый файл
2) </span><span> самостоятельная работа.jpg
имя - </span><span> самостоятельная работа
расширение - </span><span> .jpg
это графический файл</span>
Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
begin
write('Введите N',i,': ');
readln(x);
if x>=5 then f:=false;
end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>
Если правильно поняла,то число 10110101 -181,присутствует в каждом слове. и код буквы П- 11101111,он присутствует в первом слове в двух первых числах. надеюсь помогла
Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>