Question

URGENT! 50 PUNCTE!
Rezolvă in TURBO PASCAL programele:

Answer 1

Răspuns:

program Ex2_nr_spatii;

var s:string; sp, i:integer;

begin

 read(s);

 sp:=0;

 for i:=1 to length(s) do

    if s[i]=' ' then inc(sp);

 writeln(sp);

end.

Explicație:

program Echipa;

type Sportiv = record

         nume: string;

         prenume: string;

         varsta: integer;

         loc: string;

      end;

var TS:array[1..25] of Sportiv;

    no, i, n:integer;

begin

   write('n='); read(n);

   writeln('Introdu date despre sprtivi:');

   for i:=1 to n do

      begin

        write('Nume: '); readln(TS[i].nume);

        write('Prenume: '); readln(TS[i].prenume);

        write('Varsta: '); readln(TS[i].varsta);

        write('Localitate: '); readln(TS[i].loc);

      end;

    writeln('Lista sportivilor cu varsta>18 :');

    for i:=1 to n do

      begin

        if (TS[i].varsta>18)and(TS[i].loc='Sangerei') then

          begin

            inc(no);

            writeln(no,'. ',TS[i].nume,' ',TS[i].prenume,' ',TS[i].varsta,' ',TS[i].loc);

          end;

      end;

 end.