글 읽기 - 어디가 틀린건지 모르겠습니다

taesick 3년 전 0

문제를 제대로 이해하긴한건지 모르겠어요

var
   input: string;
   c, i: integer;
   isaccent: boolean;
begin
	c := 0;
	isaccent := false;
	ReadLn(input);
	for i := 0 to Length(input) do
	begin
		if (input[i]='a') OR (input[i]='b') OR (input[i]='c') OR (input[i]='d') OR (input[i]='e') OR (input[i]='h') OR (input[i]='i') OR (input[i]='l') OR (input[i]='m') OR (input[i]='n') OR (input[i]='o') OR (input[i]='p') OR (input[i]='q') OR (input[i]='r') OR (input[i]='s') OR (input[i]='t') OR (input[i]='u') OR (input[i]='x') OR (input[i]='z') OR (input[i]='v') OR (input[i]='f') OR (input[i]='g') OR (input[i]='j') OR (input[i]='k') OR (input[i]='v') OR (input[i]='y') then
			c := c + 1;
		if (input[i]=char(195)) then
			isaccent := true;
		if (isaccent = true) AND ((input[i]=char(169)) OR (input[i]=char(168)) OR (input[i]=char(167)) OR (input[i]=char(170)) OR (input[i]=char(160)) OR (input[i]=char(174)) OR (input[i]=char(180))) then
		begin
			c := c + 1;
			isaccent := false;
		end;
	end;
	if c mod 7 >= 4 then
		c := c + (7 - (c mod 7))
	else
		c := c - (c mod 7);
	if c=0 then
        WriteLn('zéro');
if c=7 then
        WriteLn('sept');
if c=14 then
        WriteLn('quatorze');
if c=21 then
        WriteLn('vingt et un');
if c=28 then
        WriteLn('vingt huit');
if c=35 then
        WriteLn('trente cinq');
if c=42 then
        WriteLn('quarante deux');
if c=49 then
        WriteLn('quarante neuf');
if c=56 then
        WriteLn('cinquante six');
if c=63 then
        WriteLn('soixante trois');
if c=70 then
        WriteLn('soixante dix');
if c=77 then
        WriteLn('soixante dix sept');
if c=84 then
        WriteLn('quatre vingt quatre');
if c=91 then
        WriteLn('quatre vingt onze');
if c=98 then
        WriteLn('quatre vingt dix huit');
if c=105 then
        WriteLn('cent cinq');
if c=112 then
        WriteLn('cent douze');
if c=119 then
        WriteLn('cent quatre vingt dix neuf');
if c=126 then
        WriteLn('cent vingt six');
if c=133 then
        WriteLn('cent trente trois');
if c=140 then
        WriteLn('cent quarante');
if c=147 then
        WriteLn('cent quarante sept');
if c=154 then
        WriteLn('cent cinquante quatre');
if c=161 then
        WriteLn('cent soixante et un');
if c=168 then
        WriteLn('cent soixante huit');
if c=175 then
        WriteLn('cent soixante quinze');
if c=182 then
        WriteLn('cent quatre vingt deux');
if c=189 then
        WriteLn('cent quatre vingt neuf');
if c=196 then
        WriteLn('cent quatre vingt seize');
if c=203 then
        WriteLn('deux cent trois');
if c=210 then
        WriteLn('deux cent dix');
if c=217 then
        WriteLn('deux cent dix sept');
if c=224 then
        WriteLn('deux cent vingt quatre');
if c=231 then
        WriteLn('deux cent trente et un');
if c=238 then
        WriteLn('deux cent trente huit');
if c=245 then
        WriteLn('deux cent quarante cinq');
if c=252 then
        WriteLn('deux cent cinquante deux');
if c=259 then
        WriteLn('deux cent cinquante neuf');
if c=266 then
        WriteLn('deux cent soixante six');
if c=273 then
        WriteLn('deux cent soixante treize');
if c=280 then
        WriteLn('deux cent quatre vingts');
if c=287 then
        WriteLn('deux cent quatre vingt sept');
if c=294 then
        WriteLn('deux cent quatre vingt quatorze');
if c=301 then
        WriteLn('trois cent un');
if c=308 then
        WriteLn('trois cent huit');
if c=315 then
        WriteLn('trois cent quinze');
if c=322 then
        WriteLn('trois cent vingt deux');
if c=329 then
        WriteLn('trois cent vingt neuf');
if c=336 then
        WriteLn('trois cent trente six');
if c=343 then
        WriteLn('trois cent quarante trois');
if c=350 then
        WriteLn('trois cent cinquante');
if c=357 then
        WriteLn('trois cent cinquante sept');
if c=364 then
        WriteLn('trois cent soixante quatre');
if c=371 then
        WriteLn('trois cent soixante et onze');
if c=378 then
        WriteLn('trois cent soixante dix huit');
if c=385 then
        WriteLn('trois cent quatre vingt cinq');
if c=392 then
        WriteLn('trois cent quatre vingt douze');
if c=399 then
        WriteLn('trois cent quatre vingt dix neuf');
if c=406 then
        WriteLn('quatre cent six');
if c=413 then
        WriteLn('quatre cent treize');
if c=420 then
        WriteLn('quatre cent vingt');
if c=427 then
        WriteLn('quatre cent vingt sept');
if c=434 then
        WriteLn('quatre cent trente quatre');
if c=441 then
        WriteLn('quatre cent quarante et un');
if c=448 then
        WriteLn('quatre cent quarante huit');
if c=455 then
        WriteLn('quatre cent cinquante cinq');
if c=462 then
        WriteLn('quatre cent soixante deux');
if c=469 then
        WriteLn('quatre cent soixante neuf');
if c=476 then
        WriteLn('quatre cent soixante seize');
if c=483 then
        WriteLn('quatre cent quatre vingt trois');
if c=490 then
        WriteLn('quatre cent quatre vingt dix');
if c=497 then
        WriteLn('quatre cent quatre vingt dix sept');
if c=504 then
        WriteLn('cinq cent quatre');
if c=511 then
        WriteLn('cinq cent onze');
if c=518 then
        WriteLn('cinq cent dix huit');
if c=525 then
        WriteLn('cinq cent vingt cinq');
if c=532 then
        WriteLn('cinq cent trente deux');
if c=539 then
        WriteLn('cinq cent trente neuf');
if c=546 then
        WriteLn('cinq cent quarante six');
if c=553 then
        WriteLn('cinq cent cinquante trois');
if c=560 then
        WriteLn('cinq cent soixante');
if c=567 then
        WriteLn('cinq cent soixante sept');
if c=574 then
        WriteLn('cinq cent soixante quatorze');
if c=581 then
        WriteLn('cinq cent quatre vingt un');
if c=588 then
        WriteLn('cinq cent quatre vingt huit');
if c=595 then
        WriteLn('cinq cent quatre vingt quinze');
if c=602 then
        WriteLn('six cent deux');
if c=609 then
        WriteLn('six cent neuf');
if c=616 then
        WriteLn('six cent seize');
if c=623 then
        WriteLn('six cent vingt trois');
if c=630 then
        WriteLn('six cent trente');
if c=637 then
        WriteLn('six cent trente sept');
if c=644 then
        WriteLn('six cent quarante quatre');
if c=651 then
        WriteLn('six cent cinquante et un');
if c=658 then
        WriteLn('six cent cinquante huit');
if c=665 then
        WriteLn('six cent soixante cinq');
if c=672 then
        WriteLn('six cent soixante douze');
if c=679 then
        WriteLn('six cent soixante dix neuf');
if c=686 then
        WriteLn('six cent quatre vingt six');
if c=693 then
        WriteLn('six cent quatre vingt treize');
if c=700 then
        WriteLn('sept cents');
if c=707 then
        WriteLn('sept cent sept');
if c=714 then
        WriteLn('sept cent quatorze');
if c=721 then
        WriteLn('sept cent vingt et un');
if c=728 then
        WriteLn('sept cent vingt huit');
if c=735 then
        WriteLn('sept cent trente cinq');
if c=742 then
        WriteLn('sept cent quarante deux');
if c=749 then
        WriteLn('sept cent quarante neuf');
if c=756 then
        WriteLn('sept cent cinquante six');
if c=763 then
        WriteLn('sept cent soixante trois');
if c=770 then
        WriteLn('sept cent soixante dix');
if c=777 then
        WriteLn('sept cent soixante dix sept');
if c=784 then
        WriteLn('sept cent quatre vingt quatre');
if c=791 then
        WriteLn('sept cent quatre vingt onze');
if c=798 then
        WriteLn('sept cent quatre vingt dix huit');
if c=805 then
        WriteLn('huit cent cinq');
if c=812 then
        WriteLn('huit cent douze');
if c=819 then
        WriteLn('huit cent quatre vingt dix neuf');
if c=826 then
        WriteLn('huit cent vingt six');
if c=833 then
        WriteLn('huit cent trente trois');
if c=840 then
        WriteLn('huit cent quarante');
if c=847 then
        WriteLn('huit cent quarante sept');
if c=854 then
        WriteLn('huit cent cinquante quatre');
if c=861 then
        WriteLn('huit cent soixante et un');
if c=868 then
        WriteLn('huit cent soixante huit');
if c=875 then
        WriteLn('huit cent soixante quinze');
if c=882 then
        WriteLn('huit cent quatre vingt deux');
if c=889 then
        WriteLn('huit cent quatre vingt neuf');
if c=896 then
        WriteLn('huit cent quatre vingt seize');
if c=903 then
        WriteLn('neuf cent trois');
if c=910 then
        WriteLn('neuf cent dix');
if c=917 then
        WriteLn('neuf cent dix sept');
if c=924 then
        WriteLn('neuf cent vingt quatre');
if c=931 then
        WriteLn('neuf cent trente et un');
if c=938 then
        WriteLn('neuf cent trente huit');
if c=945 then
        WriteLn('neuf cent quarante cinq');
if c=952 then
        WriteLn('neuf cent cinquante deux');
if c=959 then
        WriteLn('neuf cent cinquante neuf');
if c=966 then
        WriteLn('neuf cent soixante six');
if c=973 then
        WriteLn('neuf cent soixante treize');
if c=980 then
        WriteLn('neuf cent quatre vingts');
if c=987 then
        WriteLn('neuf cent quatre vingt sept');
if c=994 then
        WriteLn('neuf cent quatre vingt quatorze');
if c=1001 then
        WriteLn('mille et un');
end.

« mille un » est juste 1.001, mais « mille et un » se traduit comme « a thousand and one » en anglais, ou comme « 천 개 하고도 하나 더 많은 » en coréen. c'est à dire, ça signifie seulement « très beaucoup », pas le nombre 1.001.

taesick 3년 전 0

mille un 문제가 아닌거 같아요

ingyu1008 3년 전 0

다른 문제가 또 있나보네요

16silver 3년 전 0

isaccent가 정확히 어떻게 동작하고 있는지는 잘 모르겠지만, accent가 있지만 정답에는 포함하지 말아야 하는 다른 문자가 들어왔을 때 isaccent가 그대로 true로 남아있어서 문제가 생길 수 있겠네요

댓글을 작성하려면 로그인해야 합니다.

문제

문제

출처

ICPC

어디가 틀린건지 모르겠습니다

taesick 3년 전 0

ingyu1008 3년 전 0

taesick 3년 전 0

ingyu1008 3년 전 0

16silver 3년 전 0

Baekjoon Online Judge

채점 현황

문제

유저 대회

고등학교 대회

출처

대학교 대회

도움말