222021-01-07 21:50:35mraronKövek (100 pont)pascalWrong answer 0/10020ms1256 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/01ms996 KiB
2Accepted0/018ms1256 KiB
3Wrong answer0/51ms1216 KiB
4Wrong answer0/51ms1220 KiB
5Wrong answer0/51ms1088 KiB
6Wrong answer0/51ms1152 KiB
7Wrong answer0/51ms1088 KiB
8Wrong answer0/51ms1216 KiB
9Wrong answer0/71ms1152 KiB
10Wrong answer0/71ms1100 KiB
11Wrong answer0/81ms1224 KiB
12Wrong answer0/81ms1156 KiB
13Wrong answer0/81ms1096 KiB
14Wrong answer0/81ms1228 KiB
15Wrong answer0/81ms1228 KiB
16Wrong answer0/81ms1096 KiB
17Wrong answer0/820ms1096 KiB