Turbo pascal

Page 1 of 1

3 Replies - 1346 Views - Last Post: 06 May 2009 - 07:44 AMRate Topic: //<![CDATA[ rating = new ipb.rating( 'topic_rate_', { url: 'http://www.dreamincode.net/forums/index.php?app=forums&module=ajax&section=topics&do=rateTopic&t=103538&amp;s=24a0f1313da26af1b7cc6efa86370da6&md5check=' + ipb.vars['secure_hash'], cur_rating: 0, rated: 0, allow_rate: 0, multi_rate: 1, show_rate_text: true } ); //]]>

#1 anna zande

Reputation: 0
• Posts: 2
• Joined: 05-May 09

Turbo pascal

Posted 05 May 2009 - 02:21 PM

hello, well i need some help. So the problem is i have to do my homework and i just can't do it. My task is:

Entered natural numbers A (which digital amount is less then 250) and N (1<N<10000) to calculate a remain, what appears a number A divides with N.

In number A is the text file division.in first turn given, but in the second - number N cost.

In the text file division.out unique turn out remain, what appears A divides with N, cost.

This post has been edited by anna zande: 06 May 2009 - 06:17 AM

Is This A Good Question/Topic? 0

Replies To: Turbo pascal

#2 erik.price

• D.I.C Lover

Reputation: 486
• Posts: 2,690
• Joined: 18-December 08

Re: Turbo pascal

Posted 05 May 2009 - 04:53 PM

[rules][/rules]

#3 anna zande

Reputation: 0
• Posts: 2
• Joined: 05-May 09

Re: Turbo pascal

Posted 06 May 2009 - 06:20 AM

```program atlikums;
var A,N:integer;
f1,f2:text;
begin
assign(f1,'atlikums.in');
assign(f2,'atlikums.out');
reset(f1);
rewrite(f2);
write(f2,A mod N);
close(f1);
close(f2);
end.

```

But i don't know how to use "string" or "char"

• Saucy!

Reputation: 6246
• Posts: 24,014
• Joined: 23-August 08

Re: Turbo pascal

Posted 06 May 2009 - 07:44 AM

I would suggest reading your book or notes about "how to use string or char." That is what you're in school for, isn't it? To learn?