fork download
copy 
  1. program ideone;
  2. var
  3.   nums:array[1..5] of byte;
  4.   i: byte;
  5.  
  6. procedure checkNum(var a: byte);
  7. var t: byte;
  8. begin
  9.   t := trunc(a/10);
  10.   if t = (a-t*10) then writeln('NO') else writeln('YES');
  11. end;
  12.  
  13. begin
  14. readln(nums[1], nums[2], nums[3], nums[4], nums[5]);
  15. for i:= 1 to 5 do checkNum(nums[i]);
  16. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
22 34 47 55 63
stdout
copy 
NO
YES
YES
NO
YES
https://ideone.com/ScRwcO
language:
Pascal (fpc 3.0.4)
created:
1 day 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!