Search found 3 matches

by Tompik
Tue Feb 03, 2004 10:52 am
Forum: Volume 102 (10200-10299)
Topic: 10212 - The Last Non-zero Digit.
Replies: 63
Views: 41676

10212

Who can tell me what does it mean: "Each line of the input file contains two integers N (0<=N<=20000000), M (0<=N)". How much M will be?
by Tompik
Sat Jan 31, 2004 11:17 am
Forum: Volume 102 (10200-10299)
Topic: 10212 - The Last Non-zero Digit.
Replies: 63
Views: 41676

10212 Help!

Why WA?
Please give me some tests for this problem.
[pascal]
program p10212;

{$APPTYPE CONSOLE}

uses
SysUtils;
const two: array[1..4] of byte=(2,4,8,6);
var k,y,n5,n2,n,m,i,g: longint;
begin
while not eof(input) do
begin
readln(n,m);
m:=n-m+1; y:=1; n2:=0; n5:=0;
while m<>n+1 do
begin
k:=m ...
by Tompik
Mon Jan 26, 2004 7:02 pm
Forum: Volume 5 (500-599)
Topic: 527 - The partition of a cake
Replies: 11
Views: 2583

527

[pascal]
Why WA? There is my code, but i don't understand, why i've got WA. Please Somebody help me.
program ppp;
{$APPTYPE CONSOLE}
const max = 1000;

type
tvector = record x,y : comp; end;
trational = record c,m : comp; end;
trational_point = record x,y : trational; end;

var lines : array[1 ...

Go to advanced search