Var s:string;
i,j,l,min:byte;
begin
min:=255;
readln(s);
if s[1]='a' then j:=j+1;
s[length(s)+1]:=' ';
for i:=1 to length(s)+1 do
begin
if (s[i]='a') and (s[i-1]=' ') then j:=j+1;
if s[i]<>' ' then l:=l+1 else
begin
if s[i-1]<>' ' then
if min>l then min:=l; l:=0;
end;
end;
writeln('a) Slow kotorie nachinayutsa s "a" - ',j);
writeln('b) Dlina samogo korotkogo slova - ',min);
<span>end.</span>

0 0

3 года назад

Помогите последнееСижу и не могу

AxNata24

Чётное число — целое число, которое делится на 2 без остатка: …, −4, −2, 0, 2, 4, 6, 8, …

Нечётное число — целое число, которое не делится на 2 без остатка: …, −3, −1, 1, 3, 5, 7, 9,

0 0

4 года назад

Прочитать ещё 2 ответа

Паскаль. Дана строка.Найти произведение цифр этой строки.Если цифра равна нулю,то цифру в произведение не включать. !СРОЧНО!

urednaja

Uses crt;var i,k,s:integer;beginwriteln('vvedite chislo');readln(i);s:=1;while i>0 do begink:=i mod 10;if k > 0 thens:=s*k; i:=i div 10;end;writeln(s);end.

0 0

3 года назад

Помогите решить задачи в Паскале, пожалуйста) 1.Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканч

alex36

Ответ в файлах>>>>>>>>>>>>>>>>>>

0 0

4 года назад