222021-01-07 21:50:35mraronKövek (100 pont)pascalHibás válasz 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.
RészfeladatÖsszpontTesztVerdiktIdőMemória
base0/100
1Elfogadva0/01ms996 KiB
2Elfogadva0/018ms1256 KiB
3Hibás válasz0/51ms1216 KiB
4Hibás válasz0/51ms1220 KiB
5Hibás válasz0/51ms1088 KiB
6Hibás válasz0/51ms1152 KiB
7Hibás válasz0/51ms1088 KiB
8Hibás válasz0/51ms1216 KiB
9Hibás válasz0/71ms1152 KiB
10Hibás válasz0/71ms1100 KiB
11Hibás válasz0/81ms1224 KiB
12Hibás válasz0/81ms1156 KiB
13Hibás válasz0/81ms1096 KiB
14Hibás válasz0/81ms1228 KiB
15Hibás válasz0/81ms1228 KiB
16Hibás válasz0/81ms1096 KiB
17Hibás válasz0/820ms1096 KiB