Quote (onlyrevo)
1.Используя идею обращения числовой матрицы написать программу для обращения булевой матрицы.
Не понял задания, по возможности - пример ввода-вывода
Quote (onlyrevo)
2.Предложение состоит из слов, между словами один пробел, а после последнего слова точка. Найти самое короткое слово, начинающееся на букву «А». Помогите плиз ктото :((((
var
a,stroka:string;
i,k,dlinna:integer;
begin
dlinna:=high(dlinna);k:=0;
readln(stroka);
delete(stroka,pos('.',stroka)+1,255);
for i:=1 to length(stroka) do
if (stroka[i]=' ')and(stroka[i+1]=' ') then delete(stroka,i,1);
if pos('a',stroka<>0 then
while pos('a',stroka)<>0 do begin
a:=copy(stroka,1,pos(' ',stroka));
delete(stroka,1,pos(' ',stroka));
k:=length(a);
if k<dlinna then dlinna:=k;end else writeln('Tut net bukvu A');
end.
