Алфавит языка Паскаль не входят: 1) латинские прописные буквы цифры 2) русские строчные буквы 3) латинские строчные буквы 4) русские прописные буквы Какой тип данных описывается как integer? 1) целочисленный 2) Вещественный 3) строковый 4) логический Оператор ввода данных: 1) if... then ... 2) read(...) 3) var 4) write(...) Оператор вывода: 1) if... then ... 2) read(...) 3) var 4) write(...) Какой оператор присваивания записан правильно? 1) ч:=ч+1 2) f=:f+1 3) f:=f+1 4) f+1:=f Указать оператор условного перехода в неполной форме: 1) if r=4 then r:=r+1 2) if r=4 then r:=r+1else r:=r 3) if r=4 else r:=r+1

1)4

2) 1

3) 2

4)4

5)3

Объяснение:

Type  date = record    day: 1..31;     month: 1..12;         year: integer ;        end;var    a: date := (day: 8; month: 7; year: 2012);  b: date := (day: 6; month: 7; year: 2012);    c:integer;
procedure OutDate(d: date);begin  with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1                     else c:=-1 ;                                         if a.year = b.year then                                         if  a.month > b.month then                                         c:=1                                                                   else c:=-1;                                                                       if a.year = b.year then                                                     if a.month = b.month then                                                        if a.day > b.day then c:=1                                                                          else c:=-1;  if a.year = b.year then                                                                 if a.month = b.month then                                                                     if a.day = b.day     then c:=0;                                                                                                                                                            OutDate(a);                                                                              OutDate(b);                                                                               writeln('otwet:', c);end.

Var s,tmp:string;
     i,n:integer;
     flag,word:boolean;
function letter (const let:char):boolean;
 begin
   if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
     else letter:=false;
 end;
begin
  readln (s);
  s:=s+' ';
  n:=length(s);
  flag:=false;
  for i:=1 to n do
   begin
     if (letter(s[i])) and (not flag) then
      begin 
        flag:=true;
        tmp:='';
        word:=false;
      end else if (not letter(s[i])) and (flag) then
      begin 
       flag:=false;
       if (word) and (not (tmp='')) then writeln (tmp);
      end;
     if (flag) then
      begin 
        tmp:=tmp+s[i];
        if (s[i]='k') then word:=true;
      end; 
   end;
end.