Ввести строку. Вывести символы до первой точки.

@abcpascal · Регистрация: 26.11.2011

Author24 — интернет-сервис помощи студентам

1.Ввести строку. Вывести символы до первой точки.
2.Ввести строку. Подсчитать , сколько в ней символов * = +
3. Ввести число N и строку. Определить сколько раз символ строки с номером N встречается в строке.

@КонецСвета · 29.11.2011, 21:00

вторая

Pascal

uses crt;
var s: string;
    i,k: integer;
begin
write('Введите строку ');
readln(s);
for i:=1 to length(s) do
    if s[i] in ['*','=','+'] then inc(k);
writeln('Количество символов * = + ',k);
end.

Добавлено через 26 минут
первая

Pascal

uses crt;
var s: string;
    i,k: integer;
begin
write('Введите строку ');
readln(s);
i:=1;
while s[i]<>'.' do
      begin
      write(s[i]);
      inc(i);
      end;
end.

@артем27 · 29.11.2011, 21:02

Pascal

for i:=1 to length(s1)
do
begin
if s1[i]=('. ') then
begin
n:=i;
end;
s2:=copy(s1,1,n);
end;

первая вроде!

@КонецСвета · 29.11.2011, 21:10

третья

Pascal

uses crt;
var s: string;
    i,n,k: integer;
begin
write('Введите строку ');
readln(s);
write('Введите номер символа ');
readln(n);
for i:=1 to length(s) do
    if s[i]=s[n] then inc(k);
write('Символ "',s[n],'" под номером ',n,' встречается в строке ',k,' раз(а)');
end.

@abcpascal 5 / 5 / 6 Регистрация: 26.11.2011 Сообщений: 51
		1
	Ввести строку. Вывести символы до первой точки. 29.11.2011, 20:24. Показов 7469. Ответов 3 Метки нет (Все метки) 1.Ввести строку. Вывести символы до первой точки. 2.Ввести строку. Подсчитать , сколько в ней символов * = + 3. Ввести число N и строку. Определить сколько раз символ строки с номером N встречается в строке. 0

	29.11.2011, 21:10