212021-01-07 21:46:59mraronKövek (100 pont)pascalWrong answer 0/10018ms2064 KiB
Program morze;
  var i: integer;
      db: integer;
      s: char;
begin
  while not eoln do
  begin
    db:=0;
    for i:=1 to 5 do
    begin
      read(s); if s='.' then inc(db);
    end;
    if s='-' then write(db) else write(10-db);
  end;
  writeln;
end.
SubtaskSumTestVerdictTimeMemory
base0/100
1Accepted0/01ms1124 KiB
2Accepted0/018ms1504 KiB
3Wrong answer0/51ms1536 KiB
4Wrong answer0/51ms1608 KiB
5Wrong answer0/51ms1608 KiB
6Wrong answer0/51ms1496 KiB
7Wrong answer0/51ms1556 KiB
8Wrong answer0/51ms1620 KiB
9Wrong answer0/71ms1628 KiB
10Wrong answer0/71ms1628 KiB
11Wrong answer0/81ms1572 KiB
12Wrong answer0/81ms1572 KiB
13Wrong answer0/81ms1640 KiB
14Wrong answer0/81ms1656 KiB
15Wrong answer0/81ms1540 KiB
16Wrong answer0/81ms1616 KiB
17Wrong answer0/818ms2064 KiB