После ввода строки ничего не происходит, а программа закрывается

@Tieff · Регистрация: 17.11.2014

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

Pascal

uses crt;
Var i,p:integer;
    s:string;
Begin
    write('Vvedite stroky: ');
readln(s);
    p:=0;
    For i:=1 to Length(s) do
     Begin
     inc(p);
    if p<>0 then writeln('Simvolov: ',p) else writeln('Simvolov net');
End.

почему после ввода строки ничего не происходит, а программа закрывается? Помогите пожалуйста, исправьте.

@vint-81 · 29.01.2015, 22:11

попробуйте так...

Pascal

uses crt;
Var i,p:integer;
    s:string;
Begin
    write('Vvedite stroky: ');
    readln(s);
    p:=0;
    For i:=1 to Length(s) do inc(p);
      if p<>0 then writeln('Simvolov: ',p) else writeln('Simvolov net');
    readln
End.

@Puporev · 30.01.2015, 08:36

И при чем здесь множества? А общее количество символов в строке определяется в одно действие

Pascal

1	p:=length(s);

Видимо условие неверно написано и нужно найти количество символов, принадлежащих некоторому множеству.

@JuriiMW · 30.01.2015, 12:02

Puporev, это Turbo Pascal…
Поэтому ещё вот так можно:

Pascal

1	p := ord(s[0]);

А ещё можно вот так:

Pascal

var
  S : String;
  P : Byte absolute S;
begin
  Write('Enter string: '); ReadLn(S);
  WriteLn('Length = ', P);
end.

	30.01.2015, 12:02