fork download
copy 
  1. program lab6a(input,output);
  2. var
  3.   str: string[80];
  4.   i: integer;
  5.   doubleT: boolean;
  6. begin
  7.   writeln('Введіть рядок:');
  8.   readln(str);
  9.  
  10.   doubleT := false; 
  11.  
  12.   for i := 1 to length(str) - 1 do
  13.   begin
  14.     if (str[i] = 'T') and (str[i + 1] = 'T') then
  15.     begin
  16.       doubleT := true; 
  17.       break; 
  18.     end;
  19.   end;
  20.  
  21.  
  22.   if doubleT then
  23.     writeln('TRUE')
  24.   else
  25.     writeln('FALSE');
  26. end.
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
attitudendnghbgdmbjgodjgobdmszjgoididsoindnghbgdmbjgodjgobdmszjgoididsoigfyuhjki
stdout
copy 
Введіть рядок:
FALSE
https://ideone.com/H4EW0P
language:
Pascal (fpc 3.0.4)
created:
16 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!