fork download
copy 
  1. ! AtCoder My Practice
  2. ! author: Leonardone @ NEETSDKASU
  3.  
  4. ! 各行が7文字目からスタートする必要?
  5.  
  6.       PROGRAM AtCoder
  7.           IMPLICIT NONE
  8.  
  9.           CHARACTER(1) :: c1, c2
  10.  
  11.           READ(*,*) c1, c2
  12.  
  13.           c2 = ACHAR(ICHAR(c2) - ICHAR('a') + ICHAR('A'))
  14.  
  15.           IF (c1 == c2) THEN
  16.               PRINT '(A)', 'Yes'
  17.           ELSE
  18.               PRINT '(A)', 'No'
  19.           ENDIF
  20.  
  21.           STOP
  22.       ENDPROGRAM AtCoder
Success #stdin #stdout 0s 3924KB
comments (?)
stdin
copy 
C b
stdout
copy 
No
https://ideone.com/v9xlUp
language:
Fortran (gfortran 8.3)
created:
8 years 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!