program Slova; var s: string; r,i:integer; begin writeln('Введите ваше предложение'); readln(s); s:=s+' '; for i:=1 to length(s)-1 do if (s<>' ') and (s[i+1]=' ') then r:=r+1; writeln('В предложении ',r, ' слов. '); readln; end.
Какая буква встречается чаще
Program Bykv; Var s:String; i,k1,k2:byte; Begin write('Введите строку: ');readln(s); For i:=2 to Length(s)-1 do if s[i]=s[1] then inc(k1) else if s[i]=s[Length(s)] then inc(k2); writeln('Первая буква встречается ',k1); writeln('Последняя буква встречается ',k2); writeln('Вывод:'); if k1>k2 then writeln('Первая буква встречается чаще') else if k1<k2 then writeln('Последняя буква чаще') else writeln('Одинаково'); readln; End.
Изменить слово петя на иван в строке
program test; var s,t,z,p:string;j:integer; begin writeln('Введите ваше предложение'); readln(s); write('Введите слово которое хотите заменить: '); readln(t); write('Введите замену слову: ', t, ' <> '); readln(z); if pos(t,s)<>0 then j:=pos(t,s); p:=copy(s,1,j-1); p:=p+z; p:=p+copy(s,j+length(t),length(s)); writeln(p); readln; end.
var n,i,a,k:integer;
begin
write('Введите количество чисел: ');
readln(n);
writeln;
for i:= 1 to n do
begin
write('Введите число: ');
readln(a);
if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k:=k+1
end;
writeln;
writeln('Кол-во четных чисел оканчивающих на 0 или 2: ',k);
end.