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.
// Известно, что Х кг шоколадных конфет стоит А рублей, // а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг // шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real; begin writeln('Введите массу шоколадных конфет'); readln (x); writeln('Введите сумму потраченную на покупку шоколадных конфет'); readln (a); writeln('Введите массу ирисок'); readln (y); writeln('Введите сумму потраченную на покупку ирисок'); readln (b); writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых) writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей'); Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real; begin writeln ('введите длину ребра куба'); readln (a); while a<0 do begin writeln ('вы ввели не допустимое значение попробуйте еще раз'); writeln ('введите длину ребра куба'); readln (a); end; writeln ('площадь куба равна ',a*a*6); writeln ('объем куба равен ',a*a*a); end.
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.
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
begin
writeln ('вы ввели не допустимое значение попробуйте еще раз');
writeln ('введите длину ребра куба');
readln (a);
end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.