...your job is to write a program which takes the names of a group and a comet and then determines whether the group should go with the UFO behind that comet.
Both the name of the group and the name of the comet are converted into a number in the following manner: the final number is just the product of all the letters in the name, where "A" is 1 and "Z" is 26. For instance, the group "USACO" would be 21 * 19 * 1 * 3 * 15 = 17955. If the group's number mod 47 is the same as the comet's number mod 47, then you need to tell the group to get ready! (Remember that "a mod b" is the remainder left over after dividing a by b; 34 mod 10 is 4.)
Write a program which reads in the name of the comet and the name of the group and figures out whether according to the above scheme the names are a match, printing "GO" if they match and "STAY" if not. The names of the groups and the comets will be a string of capital letters with no spaces or punctuation, up to 6 characters long.
a evo i mog koda:
program ride;
uses wincrt;
var buffin,buffout:text;
komet,grupa:string;
function desifruj (ime:string):longint;
var i,br:integer;
znak:char;
p:real;
begin
p:=1;
br:=0;
for i:=1 to length(ime) do
for znak:='A' to 'Z' do
begin
inc(br,1);
if ime[i]=znak then p:=p*br;
if znak='Z' then br:=0;
end;
desifruj:=round(p) mod 47;
end;
begin
assign (buffin,'c:/test.in');
reset (buffin);
readln (buffin, komet, grupa);
close (buffin);
assign (buffout,'c:/test.out');
rewrite (buffout);
if desifruj (komet)=desifruj (grupa)
then write (buffout,'GO')
else write (buffout,'STAY');
close (buffout);
end.
U cemu je greska?