Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  examtest
Language: PASCAL
Code:
program TestExam;

var
i,k:integer;



begin

writeln('The result of the examis: ');

k:=0;

for i:=1 to 531 do
 if ((i div 5)=0) then
  k:=k+1;

writelen(k);

end.     
Comments: