fork(1) download
copy 
  1. program ISBN;
  2.  
  3. {$mode delphi}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var s : string;
  9.     idx, i : Integer;
  10.     sum : Integer;
  11.     v : Char;
  12.  
  13. begin
  14.   Readln(s);
  15.   idx := Pos(' ', s);
  16.   for v := '0' to '9' do begin
  17.     s[idx] := v;
  18.     sum := 0;
  19.     for i:=1 to 10 do
  20.       sum := sum + (11-i) * StrToInt(s[i]);
  21.     if sum mod 11 = 0 then begin
  22.       Writeln(v);
  23.     end;
  24.   end;
  25. end.
  26.  
Success #stdin #stdout 0s 432KB
comments (?)
stdin
copy 
020110 311
stdout
copy 
3
https://ideone.com/g3SbMb
Розв'язок задачі A ISBN дистанційного туру обласної (Черкаської області) олімпіади з інформатики (програмування) від 18.01.2014
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
secret

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!