212021-01-07 21:46:59mraronKövek (100 pont)pascalHibás válasz 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.
RészfeladatÖsszpontTesztVerdiktIdőMemória
base0/100
1Elfogadva0/01ms1124 KiB
2Elfogadva0/018ms1504 KiB
3Hibás válasz0/51ms1536 KiB
4Hibás válasz0/51ms1608 KiB
5Hibás válasz0/51ms1608 KiB
6Hibás válasz0/51ms1496 KiB
7Hibás válasz0/51ms1556 KiB
8Hibás válasz0/51ms1620 KiB
9Hibás válasz0/71ms1628 KiB
10Hibás válasz0/71ms1628 KiB
11Hibás válasz0/81ms1572 KiB
12Hibás válasz0/81ms1572 KiB
13Hibás válasz0/81ms1640 KiB
14Hibás válasz0/81ms1656 KiB
15Hibás válasz0/81ms1540 KiB
16Hibás válasz0/81ms1616 KiB
17Hibás válasz0/818ms2064 KiB