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.  
  13.   for i := 1 to length(str) - 1 do
  14.   begin
  15.     if (str[i] = 'T') and (str[i + 1] = 'T') then
  16.     begin
  17.       doubleT := true; 
  18.       break; 
  19.     end;
  20.   end;
  21.  
  22.  
  23.   if doubleT then
  24.     writeln('TRUE')
  25.   else
  26.     writeln('FALSE');
  27. end.
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin
copy 
attiuudendnghbgdmbjgodjgobdmszjgoididsoindnghbgdmbjgodjgobdmszjgoididsoigfyuhjki
stdout
copy 
Введіть рядок:
FALSE
https://ideone.com/89Vb3V
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!